一、對(duì)象

Application（程序） - Presentation（演示文稿） - Slide（幻燈片）

1. Application（程序）

創(chuàng)建新的程序?qū)ο?#xff0c;并打開一個(gè)PPT

Set ppt = New PowerPoint.Application ppt.Visible = True ppt.Presentations.Open "D:\VBA\test.ppt"

.Presentations 屬性 返回一個(gè)代表所有打開演示文稿的集合

Application.Presentations.Open FileName:="D:\VBA\test.ppt" ' 打開test.ppt Application.Presentations(1).SaveAs "saved" ' 將第一個(gè)演示文稿另存為saved.ppt Application.Presentations("test.ppt").Close ' 關(guān)閉test.ppt

.ActivePresentation 屬性 返回一個(gè)Presentation對(duì)象，代表當(dāng)前加載的演示文稿

MsgBox(Application.ActivePresentation.Path) ' 返回'D:\VBA'

.NewPresentation 屬性 返回一個(gè)NewFile對(duì)象

Application.NewPresentation.Add FileName:="D:\VBA\new.ppt" ' 在“新建項(xiàng)目”任務(wù)窗格中添加一項(xiàng) Application.NewPresentation.Remove FileName:="D:\VBA\new.ppt" ' 在“新建項(xiàng)目”任務(wù)窗格中移除所添加的文檔

.Run 方法 運(yùn)行Visual Basic過(guò)程

Application.Run MacroName, safeArrayOfParams ' MacroName是待運(yùn)行過(guò)程的名稱，safeArrayOfParams是傳遞給過(guò)程的參數(shù)Sub Test(x)MsgBox(x) End Sub Application.Run "Test", x

2.Presentation（演示文稿）

Presentations(index) index可以是演示文稿的名稱或索引號(hào)，返回一個(gè)Presentation對(duì)象

Application.Presentations("test") ' 返回test.ppt對(duì)象

.Slides 屬性 返回一個(gè)Slides集合，指定演示文稿中的所有幻燈片

Application.ActivePresentation.Slides.Add 1, ppLayoutTitle ' 添加一張幻燈片

.SaveAs(FileName, FileFormat, EmbedFonts)

FileFormat 可選，默認(rèn)為ppSaveAsDefault

EmbedFonts 可選，指定是否將TrueType字體嵌入保存的演示文稿中

Application.ActivePresentation.SaveAs "New", ppSaveAsPDF ' 另存為New.pdf

3.Slide（幻燈片）

Slides(index) index可以是幻燈片的名稱或索引號(hào)，返回單個(gè)Slide對(duì)象

.Slides.FindBySlideID(index) index是幻燈片索引號(hào)，返回單個(gè)Slide對(duì)象

.Selection.SlideRange(index) index可以是幻燈片的名稱或索引號(hào)，返回單個(gè)Slide對(duì)象

ActivePresentation.Slides(test).Layout = ppLayoutTitle ' 設(shè)置名為test幻燈片的版式 ActivePresentation.Slides.FindBySlideID(1).Layout = ppLayoutTitle ' 設(shè)置ID號(hào)為1的幻燈片版式 ActiveWindow.Selection.SlideRange(1).Layout = ppLayoutTitle ' 設(shè)置第一張幻燈片的版式

.Copy 方法 將幻燈片復(fù)制到剪貼板

ActivePresentation.Slides(1).Copy

.Cut 方法 刪除指定對(duì)象并將其放到剪貼板

ActivePresentation.Slides(1).Cut

.Paste 將剪貼板上的幻燈片粘貼到Slides集合中

ActivePresentation.Slides.Paste 4 ' 粘貼到第四張幻燈片之前

總結(jié)

以上是生活随笔為你收集整理的VBA-PPT的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。