Benennen bestimmter Formen mit VBA

Question

Ich habe eine Präsentation in PowerPoint mit vielen Formen. Gibt es eine Möglichkeit, alle Formen zu benennen, die nur Diagramme (aus Excel-Arbeitsmappe verknüpft) sind. Zum Beispiel hat eine Folie 4 Diagramme, daher sind die Namen der Formen MyPicture1, MyPicture2, MyPicture3 und MyPicture4. Der Code so sieht weit wie

Sub test() 
Dim lctr As Long 
Dim shp As shape 
Dim ii As Integer 

For ii = 1 To 6 
    For Each shp In ActivePresentation.Slides(ii).Shapes 
     If shp.Type = msoChart Then 
     lctr = lctr + 1 
     shp.Name = "MyPicture" & lctr 
    End If 
    Next shp 
Next ii 

Answer 1

Wenn ich richtig verstehe, wollen Sie Namen aller Charts in Ihrer Präsentation aufzulisten. Dazu können Sie eine einzelne Schleife wie verwenden:

Dim shp as Shape 
For Each shp In ActivePresentation.Slides(i).Shapes 
If shp.Type = msoChart Then 
    Debug.Print shp.Name 
End If 
Next 

Edit: Oder Sie können auch Shape.HasChart Eigenschaft verwenden.

If shp.HasChart Then 
Debug.Print shp.Name 
End If