z-i-008 发表于 2016-4-12 12:21:02

每张slide怎么命名的？

如题就是有时想要把每张幻灯片整成自己想要的名字，比如目录，第一章，第二章，……，结尾……等等因为现在的命名是ppt根据自己的首行字来自动分配的，有些如果是图片的话，就是no title了，不知道什么地方可以更改啊？这样的话，以后作超链接也比较方便一点。谢谢先

user_qqazu 发表于 2016-4-12 14:32:30

没人知道吗？

yoyo2012 发表于 2016-4-12 14:40:30

用以下的宏可以为Slide取名。
Sub NameSlide()
    Dim Name$
    Name$ = ActiveWindow.Selection.SlideRange(1).Name
    Name$ = InputBox$("Give this Slide a name", "Slide Name", Name$)
    If Name$ <> "" Then
      ActiveWindow.Selection.SlideRange(1).Name = Name$
    End If
End Sub

user_ybgkz 发表于 2016-4-12 15:22:06

谢谢，有空我去试一下：）
页: [1]
查看完整版本: 每张slide怎么命名的？