PowerPoint利用VBA调用、插入、引用ActiveX控件

1、打开PowerPoint在新建的演示文稿插入两个空白幻灯片；

2、单击 “控件工具箱”中要添加的“命令按钮”图标，在第一个空白幻灯片输入有关实验数据处理的文字并在合适位置插入一个命令按钮；

3、选定刚插入的命令按钮后，单击 “控件工具箱”中“属性”图标，在caption属性值改为“导入实验数据”，即命名为“导入实验数据”命令按钮；

4、执行“工具/宏/ Visual Basic编辑器”菜单命令，在打开的Visual Basic编辑器中输入以下宏代码：

（1）定义变量

Public setpxp As New ADODB.Recordset

Public cnnpxp As New ADODB.Connection

Dim constring As String……

（2）调用“输入框”和 “消息框”

yourName = InputBox("请输入姓名（学号）", "实验数据处理课件（合金熔点的确定）")

x = MsgBox("你的姓名（学号）： " & yourName, 0, "实验数据处理课件（合金熔点的确定）")

If x = 1 And yourName <> "" Then  '满足条件显示第二个幻灯片

SlideShowWindows(Index:=1).View.GotoSlide 2 

End If

（3）插入一个通用对话框

单击“控件工具箱”中的“其他控件”按钮，在打开的对话框中选择Microsoft Common Dialog Control Version 6.0项，插入在第一个幻灯片中，其宏代码为：

CommonDialog1.InitDir = "c:\temp"

CommonDialog1.Filter = "文本文件|*.mdb"

CommonDialog1.ShowOpen  '显示“打开”通用对话框，并选择有关文件（pxpmdb.mdb）“打开”

constring = "provider=microsoft.jet.oledb.4.0;" & "data source=" & CommonDialog1.FileName

cnnpxp.Open constring  '建立与数据库pxpmdb.mdb（在目录c:\temp中存在）的连接

setpxp.Open "pxp", cnnpxp, adOpenStatic  '指定表名pxp（pxpmdb.mdb中含有pxp表）

row = 2

With setpxp

Do While Not .EOF  '将表pxp中的数据给数组sy（）赋值及用row检索表pxp的行数

sy(row, 1) = setpxp.Fields(0)  '将pxp表中的相应数据给相应的数组元素sy()赋值，下同

sy(row, 2) = setpxp.Fields(1)

sy(row, 3) = setpxp.Fields(2)

row = row + 1 

.MoveNext  '将数据库pxp表中的指针下移一行

Loop

row = row