現在のページのオブジェクトの名前を全て出力する
Sub 現在のスライドのオブジェクトのNameを出力する() Dim page As Slide Set page = ActivePresentation.Slides(ActiveWindow.Selection.SlideRange.SlideNumber) Dim shp As Object For Each shp In page.Shapes MsgBox (shp.Name) Next shp End Sub
参考
Sub 現在のスライドのオブジェクトのNameを出力する() Dim page As Slide Set page = ActivePresentation.Slides(ActiveWindow.Selection.SlideRange.SlideNumber) Dim shp As Object For Each shp In page.Shapes MsgBox (shp.Name) Next shp End Sub
参考