对于经常需要做幻灯片的展示用户,自动生成幻灯片是一个可行方案,下面我们来介绍如何利用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方面如有更具体化需求请评论区留言,依情况根据留言信息增加更新内容。