每张slide怎么命名的？

z-i-008

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

user_qqazu

没人知道吗？

yoyo2012

用以下的宏可以为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

谢谢，有空我去试一下：）