如何命名所有形状

Question

我有许多形状的演示文稿，并且想将它们命名为“MyPicture＃”，其中＃是一个数字。例如形状65将被命名为MyPicture65。 VBA能做到这一点吗？那么如何？

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