So benennen Sie alle Formen

Question

Ich habe eine Präsentation mit vielen Formen und möchte sie als "MyPicture #" nennen, wobei # eine Zahl ist. Zum Beispiel würde Form 65 MyPicture65 heißen. Kann VBA das tun? Wie dann?

Answer 1

Sub test() 

    Dim sld   As Slide 
    Dim shp   As Shape 
    Dim lctr  As Long 

    For Each sld In ActiveWindow.Presentation.Slides 
     For Each shp In sld.Shapes 
      lctr = lctr + 1 
      shp.Name = "MyPicture" & lctr 
     Next 
    Next 


End Sub