一种基于ppt文档实现跳转到指定页码页面的窗口设计

为便于在ppt文档中，跳转到指定页码的页面，特设计一种ppt跳转页面的窗口设计。

如图所示：窗体、标签、文本框、命令按钮     

   

1. 在窗体上分布对象，并依次给对象命名。
2. 命令按钮单击事件如下：

Private Sub CommandButton1_Click()
pg = Int(TextBox1.Text)
ActivePresentation.Slides(pg).Select
UserForm1.Show 0
End Sub