Sub ListAllShapes()
Dim curSlide As Slide
Dim curShape As Shape
For Each curSlide In ActivePresentation.Slides
Debug.Print curSlide.SlideID
For Each curShape In curSlide.Shapes
If curShape.TextFrame.HasText Then
Debug.Print curShape.Id
End If
Next curShape
Next curSlide
End Sub
5 回答
是 . 单击对象(文本框,形状等)以选择对象,然后在 Drawing Tools | Format 选项卡中单击 Arrange 组中的 Selection Pane . 从那里,您将看到对象的名称 - 您可以在任何名称上双击(或按F2)并重命名 . 通过取消选择它,它将被重命名 . 您也可以从 Home 选项卡 - > Drawing group - > Arrange 下拉菜单 - > Selection 窗格或按ALT F10进入此窗口 .
虽然上面的答案是正确的,但我不建议您更改名称,以便在代码中依赖它 .
名字很棘手 . 他们可以改变 . 您应该使用ShapeId和SlideId .
特别要注意以编程方式更改形状的名称,因为PowerPoint依赖于名称,它可能会阻碍其常规操作 .
这不是对原始问题的回答,它是@Dudi的问题's ANSWER' S评论
这是一种在活动演示文稿中将ID列出到VBA编辑器中的即时窗口(Ctrl G)的方法:
选择对象 - >格式 - >选择窗格 - >双击以更改名称
单击插入 - >对象 - >从文件创建 - >浏览 .
选择文件后,选择“更改图标”选项,您可以根据需要重命名文件并更改图标 .
希望这可以帮助!