PNG32 PNG32 PNG32 PNG32
PNG32
Forum Excel, VBA, VSTO, Exceltips, Excelhj�lp PNG32 drivs av Excelspecialisten    Logga in     English
PNG32
PNG32 PNG32
PNG32

Logga in

PNG32

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se

PNG32 PNG32
PNG32 PNG32
PNG32

Excelforum

PNG32

 
ForumForumDiskussionerDiskussionerVBAVBAX&Y Koordinater i bildX&Y Koordinater i bild
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2022-08-29 21:25
 

Hej.

Jag undrar om det är möjligt att kunna få till x&y koordinater i en bild. Jag vill alltså att vid ett musklick på bild få x&y koordinater skrivna i en cell. Försökt att läsa mig till detta men har svårt att navigera rätt så undrar om någon har möjlighet att hjälpa mig.

Allt gott, Linus  

Nytt inlägg
 2022-09-02 13:46
 

Njaej 

Om du gör en händelsehanterare (dvs du går in i VBA-editorn alt+[F11]), Dubbelklicka på ditt arbetsblad och väljer händelsen "selection change")

Så kan du klistra in en kod i stil med:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Range("a20").Value = Target.Top & ", " & Target.Left 

End Sub

Vilket skriver in Y, X adressen i Cell A20 (byt plats på top/left om du vill ha X/Y, orkade inte ändrea bilden).

Problemet är att det bara funkar om du klickar på bladet någonstans. Om du klickar på en bild så "triggas" inte händelsen "selection change".

Så det är knepigt att starta ett makro när du klickar på en bild. Det enda (?) sättet jag kan tänka mig är om du lägger bilden i ett VBA-romulär/ bildhållare  eller liknande. Då borde du kunna köra någoting i stil med:
Image1_MouseDown
För att starta makrot. Men då vette tusan vad dina X/y kordinater blir relaterade till.

 

Så, mer nej än ja. Men Binga/googla så kanske du hittar något som funkar.

 

Nytt inlägg
 2022-09-05 10:13
 

 Hej hej

Ja det går, men det är inte värt all den koden som skulle behövas, kort beskrivet så måste du nämligen köra windows apier för att få tillgång till var din muspekare är, samt att windowsAPI har ett annat koordinatsystem än excel.

Jag hade gjort en enkel workaround:

Lägg in en knapp och koppla ett makro till det. Skriv kod för att plocka vilken bild/shape som är vald, och därefter skriva ut dess koordinater.

Obs, att du måste ha valt en bild innan du kör ditt makro, annars kommer du få körfel.

Sub test()

    Dim shp As Shape: Set shp = ActiveSheet.Shapes(Selection.Name)

    Dim rngOutput As Range: Set rngOutput = ActiveSheet.Range("A10")

    rngOutput = shp.Top & ", " & shp.Left

End Sub

Mvh

Christian

 

 

Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerVBAVBAX&Y Koordinater i bildX&Y Koordinater i bild

PNG32 PNG32
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Copyright 2013 ExcelSpecialisten XLS AB   Användarvillkor  Personliga uppgifter