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方面如有更具体化需求请评论区留言,依情况根据留言信息增加更新内容。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值