每张slide怎么命名的？

Ronnie

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

Ronnie

没人知道吗？

[此贴子已经被作者于2006-5-4 9:01:08编辑过]

ngcg

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

Ronnie

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