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

FENGJUN

[此贴子已经被作者于2005-6-27 10:57:00编辑过]

ngcg

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

FENGJUN

多谢ngcg！

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

ngcg

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

FENGJUN

以下是引用ngcg在2005-6-24 17:31:34的发言： 按组合键Alt+F8，选中要改名的幻灯片，然后选取NameSlide宏，点按Run，在输入框内输入要选用的名称就可。

多谢ngcg！是我的提问有问题，应改成“能改变VBE中显示的幻灯片名称吗？”

您的代码不能改变VBE中的幻灯片名称(CodeName?). 如幻灯片在VBE中的名称是Slide73,改名后VBE中的名称仍是Slide73。

[此贴子已经被作者于2005-6-27 10:56:31编辑过]

ngcg

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