Dimension de Shapes
Résolu/Fermé
duduleray
-
Modifié le 6 mai 2020 à 17:01
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 6 mai 2020 à 18:38
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 6 mai 2020 à 18:38
A voir également:
- Dimension l x l x h
- Direct x runtime - Télécharger - Pilotes & Matériel
- Photoscape x gratuit - Télécharger - Retouche d'image
- Site x ✓ - Forum Réseaux sociaux
- American history x 2 - Forum Cinéma / Télé
- X gratuit ✓ - Forum Box et Streaming vidéo
4 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 776
Modifié le 6 mai 2020 à 17:10
Modifié le 6 mai 2020 à 17:10
Bonjour,
Tout simplement :
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
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
6 mai 2020 à 17:43
6 mai 2020 à 17:43
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
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
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
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
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 776
Modifié le 6 mai 2020 à 18:39
Modifié le 6 mai 2020 à 18:39
Mon code liste tous les shapes de la feuille et leurs dimension dans la fenêtre d'exécution du VBE.
Ici un tutoriel sur le VBE et ses fenêtres : https://tutoriel-vba.espaceweb.usherbrooke.ca/vba_VBE.html
Quand on utilise un outil, il faut commencer par apprendre à s'en servir.
Ici un tutoriel sur le VBE et ses fenêtres : https://tutoriel-vba.espaceweb.usherbrooke.ca/vba_VBE.html
Quand on utilise un outil, il faut commencer par apprendre à s'en servir.
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
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
