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

相关推荐
万邦科技Lafite3 小时前
京东按图搜索京东商品(拍立淘) API (.jd.item_search_img)快速抓取数据
开发语言·前端·数据库·python·电商开放平台·京东开放平台
丁浩6664 小时前
Python机器学习---6.集成学习与随机森林
python·随机森林·机器学习
charlie1145141915 小时前
现代 Python 学习笔记:Statements & Syntax
笔记·python·学习·教程·基础·现代python·python3.13
Never_Satisfied5 小时前
在JavaScript / Node.js / 抖音小游戏中,使用tt.request通信
开发语言·javascript·node.js
爱吃小胖橘5 小时前
Unity资源加载模块全解析
开发语言·unity·c#·游戏引擎
千里镜宵烛7 小时前
Lua-迭代器
开发语言·junit·lua
渡我白衣7 小时前
C++ 同名全局变量:当符号在链接器中“相遇”
开发语言·c++·人工智能·深度学习·microsoft·语言模型·人机交互
淮北4948 小时前
html + css +js
开发语言·前端·javascript·css·html
麦麦大数据8 小时前
F036 vue+flask中医热性药知识图谱可视化系统vue+flask+echarts+mysql
vue.js·python·mysql·flask·可视化·中医中药