求问：能改变VBE中显示的幻灯片名称吗？

天星盼蝎

user_qtvtwxxn

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 IfEnd Sub

user_hswgelxo

多谢ngcg！
但代码不能改变VBE中的幻灯片名称(CodeName?).

山中老虎

按组合键Alt+F8，选中要改名的幻灯片，然后选取NameSlide宏，点按Run，在输入框内输入要选用的名称就可。

user_lunztier

多谢ngcg！是我的提问有问题，应改成“能改变VBE中显示的幻灯片名称吗？”
您的代码不能改变VBE中的幻灯片名称(CodeName?). 如幻灯片在VBE中的名称是Slide73,改名后VBE中的名称仍是Slide73。

user_ywbed

怎么在VBE里面插入幻灯片？我用的是OfficeXP，找不到有任何功能菜单，可以插入幻灯片，请指教。