Si vous voulez simplement en savoir plus sur les formes, vous pouvez utiliser la macro, qui vous montre l’ID et le nom de l’objet forme à l’écran.

Sub FormeTypeDeterminer ()

Dim shp as shape

For Each shp In ActiveSheet.Shapes

  MsgBox shp.Type & "/" & shp.AlternativeText

Next shp

End Sub

Excel signale l’ID de la forme via la propriété Type. Vous pouvez utiliser la propriété AlternativeText pour déterminer l’étiquette de la forme.

D’autres constantes de forme peuvent être trouvées dans le tableau :    

Continuons avec la tâche de l’article précédente. Déplacez maintenant le graphique inséré de la zone C5: G23 une fois et démarrez la macro à partir .

Sub Verifiezlegraphiquedanszone ()

Dim shp as shape

Dim range as range

Dim upper corner As String

Dim s As String

Set area = Range ("C5: G25")

  For Each shp In ActiveSheet.Shapes

   If shp.Type = msoAutoShape Then s = shp.Name

  Next shp

Set shp = Worksheets ("Feuil2"). Shapes (s)

If Intersect (shp.TopLeftCell, area) Is Nothing Then _

MsgBox " le graphique est à l'extérieur " _

Else MsgBox " le graphique se trouve à l'intérieur "

End Sub