你的这个想法需要利用控件来实现。
1、从“视图”——“工具栏”中调出“控件工具箱”
2、点击“控件工具箱”中的“文本框”,然后在你的PPT相关一张中,按住鼠标左键,扮返拉出一个文本框镇缺樱。
3、选中刚拉出的文本御丛框,鼠标双击,跳出代码窗口。在代码Private Sub TextBox1_Change()
End Sub
之间加入
n = TextBox1.Text
SlideShowWindows(Index:=1).View.GotoSlide Index:=n
4、关闭代码窗口,尝试演示PPT,输入数字,看看你想要的效果是不是达到了?至于美化,你自己网上查查文本框属性可以做进一步尝试。