recherche de parametre

R

Ramazan

Guest
<HTML>Salut,

j'aimerai savoir si il est possible de localiser les "elipse" (bar d'outil dessin) sur une feuille excel, leur position et leur taille.

Merci,
Bonne continuation...</HTML>
 
P

Pierre Fauconnier

Guest
<HTML>Bonsoir

Voici une macro en VBA qui affiche un message pour chaque ellipse rencontrée sur la feuille 2 du classeur actif.

Sub Elipses()
Dim Ellipse As Shape
For Each Ellipse In Feuil2.Shapes
If Ellipse.AutoShapeType = msoShapeOval Then
With Ellipse
MsgBox "X point supérieur gauche = " & .Left & _
Chr(13) & _
"Y point supérieur gauche = " & .Top & _
Chr(13) & _
"Hauteur = " & .Height & _
Chr(13) & _
"Largeur = " & .Width
End With
End If
Next Ellipse
End Sub

D'une façon générale, l'enregistreur de macros permet de "trouver une piste" pour la rédaction d'une macro. Ne connaissant pas par coeur toutes les propriétés des objets Shapes, j'ai utilisé l'enregistreur de macros pour dessiner une ellipse, de manière à retrouver notamment la constante msoShapeOval...

Bon travail

Pierre Fauconnier</HTML>
 

Discussions similaires

  • Résolu(e)
Microsoft 365 Taille UserForm
Réponses
3
Affichages
299

Statistiques des forums

Discussions
311 719
Messages
2 081 871
Membres
101 828
dernier inscrit
Did-Pan