一、對象

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

1. Application（程序）

創建新的程序對象，并打開一個PPT

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

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

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

.ActivePresentation 屬性 返回一個Presentation對象，代表當前加載的演示文稿

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

.NewPresentation 屬性 返回一個NewFile對象

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

.Run 方法 運行Visual Basic過程

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

2.Presentation（演示文稿）

Presentations(index) index可以是演示文稿的名稱或索引號，返回一個Presentation對象

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

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

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

.SaveAs(FileName, FileFormat, EmbedFonts)

FileFormat 可選，默認為ppSaveAsDefault

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

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

3.Slide（幻燈片）

Slides(index) index可以是幻燈片的名稱或索引號，返回單個Slide對象

.Slides.FindBySlideID(index) index是幻燈片索引號，返回單個Slide對象

.Selection.SlideRange(index) index可以是幻燈片的名稱或索引號，返回單個Slide對象

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

.Copy 方法 將幻燈片復制到剪貼板

ActivePresentation.Slides(1).Copy

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

ActivePresentation.Slides(1).Cut

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

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

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。