Discussion :

[retraite83]

Bonjour

je place une image par insertion image dans une feuille excel et je la glisse à l'endroit voulu

Je voudrai visuellement récupérer la position (iLeft et iTop) pour ensuite la positionner par macro VBA

Je sais comment positionner l'image en VBA, mais il me faut ces 2 valeurs

Merci

[Franc]

Bonjour, comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub PositionImage()
    Dim img As Picture
    Set img = ActiveSheet.Pictures(1)
 
    Dim iTop As Single
    Dim iLeft As Single
 
    iTop = img.Top
    iLeft = img.Left
 
    MsgBox "Top: " & iTop & ", Left: " & iLeft
End Sub

[retraite83]

Merci

pourquoi n'y ai-je pas pensé...