PPT VBA常用语句

PPT VBA常用语句

结束放映的语句

SlideShowWindows(Index:=1).View.Exit

关闭当前窗口

Application.Windows.Item(1).Close

关闭PPT

Application.Quit

在ppt中用VBA实现多个文档的打开和关闭

Sub Ctest()

//关闭当前文档

ActivePresentation.Close

//打开另外一个文档

Presentations.Open "C:\Documents and Settings\Administrator\桌面\FILE 2.ppt"

//如果你要新打开的文档开始播放的话，加上下面的一句

ActivePresentation.SlideShowSettings.Run

End Sub

跳到某一张幻灯片：

With SlideShowWindows(1).View

.GotoSlide 2

End With

文本框控件：

Slide5.TextBox1.Text=”888”

文本框：

Slide1.Shapes("Text Box 7").TextFrame.TextRange.Text = "999999"

图形元件:

Slide1.Shapes("Oval 9").Visible = msoFalse

图片元件

ActivePresentation.Slides(1).Shapes("Picture 29").Height = 0

ActivePresentation.Slides(1).Shapes("Picture 29").Width = 0

一、OnSlideShowPageChange宏的使用

下面我们来研究一下这两个宏的功能与运行的条件。先来看OnSlideShowPageChange 宏，我们新建一个演示文稿，并把PowerPoint宏的安全级别设置为启用全部宏，在演示文稿中添加几张幻灯片，为便于测试说明，从第一张幻灯片开始，我们按顺序给它们输入数字编号"1、2、3、4……"，再按Alt+F11快捷键启动VBA编辑器，在其中插入一个模块，向代码窗口中输入如下代码：

Sub OnSlideShowPageChange()

MsgBox "I love you, PowerPoint."

End Sub

点击"保存"按钮，保存文档，文件名如Test.ppt（PowerPoint 2007中为Test.pptm），返回幻灯片编辑视图，按F5键进行放映，我们首先会看到一个显示"I love you, PowerPoint."的消息框，点击确定后，放映第一张幻灯片，再点击鼠标左键，放映到第二张，也会出现同样的消息框，后面各张的放映的情形也是这样。这说明我们的宏在放映时及放映过程中被正确地执行了，还说明这个宏是在放映时就自动运行，以后只要有幻灯片切换都会被激发而运行。根据它的特性，只要是在幻灯片放映开始时就要完成的任务，或是放映过程中需要不断重复做的处理都可以交给它来完成。同时，这个宏也很适合用来对PowerPoint放映环境进行初始化设置，不过应做一下改进，因为初始化只需要一次，反复做会浪费系统资源，改进后的示例代码如下：

Sub OnSlideShowPageChange()

If ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 1 Then

MsgBox "I love you, PowerPoint."

End If

End Sub

再保存后运行，怎么样，是不是只在放映开始时出现一次消息框，以后幻灯片再切换就看不到消息框了，我们的目的达到了，今后在实际开发中只是放映过程中要反复执行的代码块就放在Sub OnSlideShowPageChange()和End Sub之间，即代替掉"If Then End If"语句块，凡是开始放映时只需运行一次的代码块就放在If ActivePresentation.SlideShowWindow.View.CurrentSho wPosition = 1 Then和End If之间，即把MsgBox "I love you,PowerPoint."语句替换成我们自己的代码块就行了。

二、OnSlideShowTerminate宏的使用

现在我们再来研究一下OnSlideShowTerminate宏的用法，还是用前面建立的PowerPoint 实列文档Test.ppt，打开文档后在VBA编辑器窗口中输入下面的代码：

Sub OnSlideShowTerminate()

MsgBox "Good bye, and take care!"

End Sub

保存后返回PowerPoint幻灯片编辑视图，按F5进行放映，在放映开始出现显示"I love you, PowerPoint."消息框，这是OnSlideShowPageChange宏的功劳，前面已讲过，点"

确定"后继续播放直至结束，我们又会看到一个写着"Good bye, and take care!"的消息框，现在是OnSlideShowTerminate宏在起作用。由此我们可以看出，OnSlideShowTerminate宏只在结束幻灯片放映时被激活发挥作用，用它我们可以处理放映完成后的环境清理工作，只要把我们的相关代码放在Sub OnSlideShowTerminate()和End Sub中间替换掉MsgBox "Good bye, and take care!"语句就OK了。

下面的資料是平時使用到的一些數據庫連接方式﹐可能不太全﹐但是可以用來當做資料查詢﹐希望能夠幫上大家的忙。

下面將簡單介紹一下幾種ADO連接方式﹕ODBC DSN,ODBC DSN-Less, OLE DB Provider,和"MS Remote" Provider.

I.DSN

oConn.Open "DSN=AdvWorks; UID=Admin; PWD=;"

注意﹕從MDAC2.1開始就不能夠在使用這樣的方式了﹐就是只把DSN文件名放在ConnectString中。你必須同時使用DSN﹐UID﹐PWD標志。例如下面的方式在MDAC 2.1中將會出錯﹕oConn.Open "AdvWorks"

II.File DSN

oConn.Open "FILEDSN=\somepath\mydb.dsn; UID=Admin; PWD=;"

III.ODBC DSN-Less Connections

a)ODBC Text Driver

oConn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)}; Dbq=\somepath\;" & "Extensions=asc,csv,tab,txt; Persist Security Info=False"

注意﹕需要在SQL語句中指定使用到的文件名。例如﹕

oRs.Open "Select * From customer.csv", oConn, adOpenStatic, adLockReadOnly, adCmdText

b)ODBC Driver for Access

i)普通安全模式﹕

oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _

"Dbq=\somepath\mydb.mdb; Uid=Admin; Pwd=;"

ii)如果使用了System database:

oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _

"Dbq=\somepath\mydb.mdb; SystemDB=\somepath\mydb.mdw;", "admin", ""

c)ODBC Driver for SQL Server

i)普通安全模式

oConn.Open "Driver={SQL Server}; Server=carl2;" & _

"Database=pubs; Uid=sa; Pwd=;"

ii)使用信任安全模式﹕

oConn.Open "Driver={SQL Server}; Server=carl2;" & _

"Database=pubs; Uid=; Pwd=;"

注意﹕要使用空白的Uid和Pwd

d)ODBC Driver for Oracle

i)使用現有的Oracle ODBC Driver from Microsoft:

oConn.Open "Driver={Microsoft ODBC for Oracle};" & _

"Server=OracleServer.world; Uid=demo; Pwd=demo;"

ii)使用老版本的Oracle ODBC Driver from Microsoft:

oConn.Open "Driver={Microsoft ODBC Driver for Oracle};" & _

"ConnectString=OracleServer.world; Uid=demo; Pwd=demo;"

IV)使用微軟的OLE DB Data Link Connections方式Data Link File (UDL)

a)使用絕對路徑

oConn.Open "File Name=\somepath\pubs.udl;"

b)使用相對路徑

oConn.Open "File Name=pubs.udl;"

V)OLE DB Provider Connections方式

a)OLE DB Provider for ODBC Databases

i)Access (Jet):

oConn.Open "Provider=MSDASQL; Driver={Microsoft Access Driver (*.mdb)};" & _ "Dbq=\somepath\mydb.mdb; Uid=Admin; Pwd=;"

ii)SQL Server:

oConn.Open "Provider=MSDASQL; Driver={SQL Server};" & _

"Server=carl2; Database=pubs; Uid=sa; Pwd=;"

b)OLE DB Provider for Microsoft Jet (Access)

i)普通安全模式﹕

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=\somepath\mydb.mdb; User Id=admin; Password=;"

ii)如果使用了System database:

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=\somepath\mydb.mdb; Jet OLEDB:System Database=system.mdw;", "admin", ""

注意﹕當使用OLE DB Provider4.0版本是﹐需要把MDB和MDW文件轉換成4.0的數據庫格式

iii)如果MDB需要一個數據庫密碼的話﹕

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=\somepath\mydb.mdb; Jet OLEDB:Database Password=MyDbPassword;", "admin", ""

c)OLE DB Provider for Excel Spreadsheet:

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\somepath\expenses.xls;"

& _

"Extended Properties=Excel 8.0;HDR=Yes;"

注意﹕"HDR=Yes"表示在第一行中是行標題﹐在provider中將不把第一行包括入recordset中

d)OLE DB Provider for SQL Server

i)普通安全模式﹕

oConn.Open "Provider=sqloledb; Network Library=DBMSSOCN;" & _

"Data Source=carl2; Initial Catalog=pubs; User Id=sa; Password=;"

ii)使用信任安全模式﹕

oConn.Open "Provider=sqloledb; Network Library=DBMSSOCN;" & _

"Data Source=carl2; Initial Catalog=pubs; Trusted_Connection=yes;"

注意﹕"Network Library=DBMSSOCN"聲明OLE DB使用TCP/IP替代Named Pipes.

e)OLE DB Provider for Oracle

oConn.Open "Provider=msdaora; Data Source=OracleServer.world;" & _

"User Id=sa; Password=;"

(VI)Remote OLE DB Provider Connections方式﹙就是RDS方式﹚﹕

a)MS Remote - Access (Jet)

i)ODBC DSN:

oConn.Open "Remote Server=http://carl2; Remote Provider=MSDASQL;" & _ "DSN=AdvWorks; Uid=admin; Pwd=;"

ii)OLE DB Provider:

oConn.Open "Provider=MS Remote; Remote Server=http://carl2;" & _

"Remote Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\somepath\mydb.mdb;", "admin", ""

iii)OLE DB Provider自定義事務對象

oConn.Open "Provider=MS Remote; Remote Server=http://carl2;" & _

"Handler=MSDFMAP.Handler; Data Source=MyAdvworksOLEDBConnectTag;"

b)MS Remote - SQL Server

i)ODBC DSN:

oConn.Open "Remote Server=http://carl2; Remote Provider=MSDASQL;" & _ "Network Library=DBMSSOCN; DSN=Pubs; Uid=sa; Pwd=;"

ii)OLE DB Provider

oConn.Open "Provider=MS Remote; Remote Server=http://carl2;" & _

"Remote Provider=SQLOLEDB; Network Library=DBMSSOCN;" & _

"Data Source=carl2; Initial Catalog=pubs; User ID=sa; Password=;"

Set objConn = New ADODB.Connection

objConn.ConnectionString = "Provider=MSDAORA.1;" & _ "User ID=rltest;" & _

"Password=slidbope;" & _

"Data Source