VBA第三十八期 VBA自贡分把表格图表生成PPT

上一节讲到把数据区域自动生成PPT,这一实例是把图表自动生成PPT。

Sub CopyA11ChartsToPresenta()

Dim PP As PowerPoint. Application

Dim PPPres As PowerPoint. Presentation

Dim PPSlide As PowerPoint. SlideDim i As Integer

Sheets ("Slide Data") . Select

If ActiveSheet. Chartobjects. Count <1 Then

MsgBox "No charts existing the active sheet"

Exit Sub

End If

Set PP=New PowerPoint. Application

Set PPPres= PP. Presentations. AddPP. Visible-True

For i- 1 To ActiveSheet. Chartobjects. Count

ActiveSheet. Chartobjects (i) . Chart. CopyPicture Size: =x1Screen, Format:=x1PictureApplication. Wait (Now+ TimeValue("0:00:1"))

ppSlideCount=PPPres. Slides. Count

Set PPSlide= PPPres. Slides. Add (SlideCount + 1, ppLayoutBlank)

PPSlide. Select

PPSlide. Shapes. Paste. Select

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

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

Next 1

Set PPSlide-Nothing

Set PPPres=Nothing

Set PP-Nothing

End Sub

注意:PowerPoint环境设置参照上一节。

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

相关推荐
weixin_472339463 小时前
高效处理大体积Excel文件的Java技术方案解析
java·开发语言·excel
枯萎穿心攻击4 小时前
响应式编程入门教程第二节:构建 ObservableProperty<T> — 封装 ReactiveProperty 的高级用法
开发语言·unity·c#·游戏引擎
Eiceblue5 小时前
【免费.NET方案】CSV到PDF与DataTable的快速转换
开发语言·pdf·c#·.net
m0_555762906 小时前
Matlab 频谱分析 (Spectral Analysis)
开发语言·matlab
浪裡遊7 小时前
React Hooks全面解析:从基础到高级的实用指南
开发语言·前端·javascript·react.js·node.js·ecmascript·php
烛阴7 小时前
简单入门Python装饰器
前端·python
lzb_kkk7 小时前
【C++】C++四种类型转换操作符详解
开发语言·c++·windows·1024程序员节
好开心啊没烦恼8 小时前
Python 数据分析:numpy,说人话,说说数组维度。听故事学知识点怎么这么容易?
开发语言·人工智能·python·数据挖掘·数据分析·numpy
面朝大海,春不暖,花不开8 小时前
使用 Python 实现 ETL 流程:从文本文件提取到数据处理的全面指南
python·etl·原型模式
简佐义的博客8 小时前
破解非模式物种GO/KEGG注释难题
开发语言·数据库·后端·oracle·golang