VBA第三十六期 VBA自动生成幻灯片技巧

对于经常需要做幻灯片的展示用户，自动生成幻灯片是一个可行方案，下面我们来介绍如何利用VBA来设计自动生成PPT，在运行VBA前，我们要做一项准备工作：

首先设置对PowerPoint对象库的引用，在Excel中打开VBE即我们的VBA编辑器，在Excel中点击【工具】，如下画面。

第二步，点击【VB编辑器】进入如下画面

第三步点击VBA的【工具】按钮，点击【引用】进入对话框，如图选中Microsoft PowerPoint选项，点击确定完成设置。

接下来就是编写VBA代码了，代码如下：

Private Sub CommandButton2_Click()

Dim PP As PowerPoint.Application

Dim PPPres As PowerPoint.Presentation

Dim PPSlide As PowerPoint.Slide

Dim SlideTitle As String

'open PowerPoint and create new presentation

Set PP = New PowerPoint.Application

Set PPPres = PP.Presentations.Add

PP.Visible = True

'增加新的幻灯片

Set PPSlide = PPPres.Slides.Add(1, ppLayoutTitleOnly)

PPSlide.Select

'复制数据图片到幻灯片

Sheets("表一").Range("A1:J28").CopyPicture Appearance:=xlScreen, Format:=xlPicture

PPSlide.Shapes.Paste

PP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, msoTrue

PP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, msoTrue

'增加PPT标题

SlideTitle = "我的第一个PPT演讲稿"

PPSlide.Shapes.Title.TextFrame.TextRange.Text = SlideTitle

PP.Activate

Set PPSlide = Nothing

Set PPPres = Nothing

Set PP = Nothing

End Sub

以上过程执行将工作表【表一】的"A1:J28"区域的数据转换为图片，然后创建PPT。

VBA基本知识更新接近尾声，VBA方面如有更具体化需求请评论区留言，依情况根据留言信息增加更新内容。