Dimensions et position d'une image avec VBA

Version imprimable

12/10/2016, 16h33
mac4209

Dimensions et position d'une image avec VBA

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
12/10/2016, 22h49
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.
13/10/2016, 09h34
mac4209

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

tu peux essayer ça.

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

Code:

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

13/10/2016, 11h55
mac4209

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

Citation:

Envoyé par jean_2940

tu peux essayer ça.

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

Code:

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

19/06/2025, 14h14
jacky72

Solution Position et taille image

Beaucoup de solution sur le net mais celle-ci est simple, très utile donc excellente. Avec tous mes remerciements
19/06/2025, 16h00
deedolith
Hello,

Si tu veux vraiment être complet, ajoute le code suivant, histoire de ne pas essuyer un vilain plantage:
Code:

1 2 3 4 5 If TypeOf Selection Is Picture Then '// Code proposé précédement End If
Pour rappel, l'objet Selection peut désigner beaucoup de chose qui n'ont rien en commun:
Une plage, une forme, une image, un graph, et même rien du tout.
Il convient de le tester.