Discussion :

[mac4209]

Bonjour à tous,
J'aimerai faire une macro qui me renvoi dans une messagebox la hauteur, largeur et position sur la page d'une forme. En effet, j'ai cru voir qu'en VBA, la dimension n'était ni en pixel, ni en cm et j'ai du mal à faire la conversion avec l'unité que propose le VBA.
Merci

[Zekraoui_Jakani]

Enregistrer une nouvelle macro dans laquelle vous faites toutes les actions désirées manuellement, puis stoppez l'enregistrement et lisez ce que la macro a fait. Vous pouvez ensuite récupérer les résultats dans une msgbox.

[mac4209]

J'avais pas pensé à ça, par contre cela me semble être un peu du "bricolage", n'y aurait-il pas une autre solution ?

[jean_2940]

tu peux essayer ça.

Il faut avant de lancer cette macro avoir sélectionné une image sinon ça ne marchera pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub tailleimage()
 
With Selection
    Himage = .Height
    Limage = .Width
    Vposimage = .Top
    Hposimage = .Left
    Nomimage = .Name
End With
 
infoimage = Nomimage & Chr(10) & Chr(10) & _
                "Hauteur : " & Himage & Chr(10) & _
                "Largeur : " & Limage & Chr(10) & _
                "Pos verticale : " & Vposimage & Chr(10) & _
                "Pos horizontale : " & Hposimage
 
infos = MsgBox("infos relative à l'image : " & infoimage , vbOKOnly)
 
End Sub

[mac4209]

Super, c'est exactement ce qu'il me fallait, merci

[jacky72]

tu peux essayer ça.

Il faut avant de lancer cette macro avoir sélectionné une image sinon ça ne marchera pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub tailleimage()
 
With Selection
    Himage = .Height
    Limage = .Width
    Vposimage = .Top
    Hposimage = .Left
    Nomimage = .Name
End With
 
infoimage = Nomimage & Chr(10) & Chr(10) & _
                "Hauteur : " & Himage & Chr(10) & _
                "Largeur : " & Limage & Chr(10) & _
                "Pos verticale : " & Vposimage & Chr(10) & _
                "Pos horizontale : " & Hposimage
 
infos = MsgBox("infos relative à l'image : " & infoimage , vbOKOnly)
 
End Sub

[jacky72]

Beaucoup de solution sur le net mais celle-ci est simple, très utile donc excellente. Avec tous mes remerciements