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

相关推荐
-XWB-25 分钟前
【LLM】使用MySQL MCP Server让大模型轻松操作本地数据库
人工智能·python·自然语言处理
小萌新上大分25 分钟前
SpringCloudGateWay
java·开发语言·后端·springcloud·springgateway·cloudalibaba·gateway网关
PacosonSWJTU1 小时前
python基础-13-处理excel电子表格
开发语言·python·excel
froginwe111 小时前
Perl 条件语句
开发语言
小军要奋进2 小时前
httpx模块的使用
笔记·爬虫·python·学习·httpx
啥都鼓捣的小yao2 小时前
利用C++编写操作OpenCV常用操作
开发语言·c++·opencv
灼华十一2 小时前
Golang系列 - 内存对齐
开发语言·后端·golang
程序媛学姐2 小时前
SpringRabbitMQ消息模型:交换机类型与绑定关系
java·开发语言·spring
努力努力再努力wz2 小时前
【c++深入系列】:类与对象详解(中)
java·c语言·开发语言·c++·redis
Johnny_Cheung2 小时前
字符串、列表、元组、字典
开发语言·python