すべての図形に名前を付けるには

私は多くの図形を使ってプレゼンテーションを行い、それぞれを "MyPicture＃"（＃は数字）という名前にしたいと思います。例えば、形状65はMyPicture65と命名される。 VBAでこれを行うことはできますか？どのように？すべての図形に名前を付けるには

出典

2016-07-26 Orongo

申し訳ありませんが、抵抗することはできません：https://imgflip.com/i/17zbfc – Comintern

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

出典

2016-07-26 14:46:44 cyboashu

コードは完璧に動作します。しかし、私は今、タイトルと "MyPicture＃"という名前を取得するようになりました。外部ソースを持つ図形にのみ制限する方法はありますか？ – Orongo

すべての図形に名前を付けるには

答えて

関連する問題