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 SettingsAdministrator桌面FILE 2.ppt/如果你要新打开的文档开始播放的话，加上下面的一句ActivePresentation.SlideShowSettings.RunEnd Sub跳到某一张幻灯片：With SlideShowWindows(1).View .GotoSlide 2End 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.DSNoConn.Open DSN=AdvWorks; UID=Admin; PWD=;注意從MDAC2.1開始就不能夠在使用這樣的方式了就是只把DSN文件名放在ConnectString中。你必須同時使用DSNUIDPWD標志。例如下面的方式在MDAC 2.1中將會出錯oConn.Open AdvWorksII.File DSNoConn.Open FILEDSN=somepathmydb.dsn; UID=Admin; PWD=;III.ODBC DSN-Less Connectionsa)ODBC Text DriveroConn.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, adCmdTextb)ODBC Driver for Accessi)普通安全模式oConn.Open Driver=Microsoft Access Driver (*.mdb); & _ Dbq=somepathmydb.mdb; Uid=Admin; Pwd=;ii)如果使用了System database:oConn.Open Driver=Microsoft Access Driver (*.mdb); & _ Dbq=somepathmydb.mdb; SystemDB=somepathmydb.mdw;, admin, c)ODBC Driver for SQL Serveri)普通安全模式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 Oraclei)使用現有的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=somepathpubs.udl; b)使用相對路徑oConn.Open File Name=pubs.udl; V)OLE DB Provider Connections方式a)OLE DB Provider for ODBC Databasesi)Access (Jet):oConn.Open Provider=MSDASQL; Driver=Microsoft Access Driver (*.mdb); & _Dbq=somepathmydb.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=somepathmydb.mdb; User Id=admin; Password=;ii)如果使用了System database:oConn.Open Provider=Microsoft.Jet.OLEDB.4.0; & _Data Source=somepathmydb.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=somepathmydb.mdb; Jet OLEDB:Database Password=MyDbPassword;, admin, c)OLE DB Provider for Excel Spreadsheet: oConn.Open Provider=Microsoft.Jet.OLEDB.4.0; Data Source=somepathexpenses.xls; & _Extended Properties=Excel 8.0;HDR=Yes; 注意 HDR=Yes表示在第一行中是行標題在provider中將不把第一行包括入recordset中d)OLE DB Provider for SQL Serveri)普通安全模式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 OracleoConn.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=somepathmydb.mdb;, admin, iii)OLE DB