Dimension de Shapes Résolu/Fermé

Question

Bonjour a tous, Forum bonjour, Windows 10 / Edge 81.0.416.68 J'ai insérer sur ma feuil1 plusieurs shapes dont un carré et 5 rectangulaires de dimensions différentes. Je souhaiterai savoir svp ou trouver ou comment calculer la dimension de chaque shape. Exemple: Rectangle 1 = ??? Top = Left = Width = Height = Merci a tous pour votre aide, bonne fin d'après midi. Cdlt Dudu

Patrice33740 · Answer

Bonjour,

Tout simplement :
Sub test()
Dim shp As Shape
  For Each shp In Worksheets("Feuil1").Shapes
    Debug.Print shp.Name, "T:" & shp.Top, "L:" & shp.Left, "W:" & shp.Width, "H:" & shp.Height
  Next shp
End Sub

duduleray · Answer

Salut Patrice 33740,

Merci pour ta réponse et le petit code.

J'ai le code dans un module, puis sur ma feuil1 j'ai sélectionner un shape puis lancer la macro 

mais aucun résultat ne s'affiche a l'écran, est t'il possible svp d'avoir le résultat dans un MSGBOX nom du chape sélectionner et les dimensions bien sur.

pour infos chaque shape un nom différent

Merci pour ton aide, c'est sympa a toi.

Cdlt Dudu

cs_Le Pivert · Answer

Bonjour,

je ne comprends pas ta demande, je t'ai donné la solution ici:

https://forums.commentcamarche.net/forum/affich-36579126-deplacer-des-shapes-ou-formes#1

duduleray · Answer

Salut Le pivert, patrice,

Merci de ta remarque, tu a raison, je m'en excuse, j'ai complètement zapper le code que tu m'avait fait.

Je ne l'ai pas retrouver pour autant , cette fois c'est ranger.

Encore merci a vous deux tout de même et désolé.

Bonne soirée a vous et merci encore.

je clos donc le sujet.

Cdlt Dudu

Dimension de Shapes

4 réponses

Discussions similaires