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

相关推荐
董先生_ad986ad2 小时前
C# 中的 `lock` 关键字本质
开发语言·c#
元亓亓亓2 小时前
Java后端开发day36--源码解析:HashMap
java·开发语言·数据结构
道剑剑非道2 小时前
QT 打包安装程序【windeployqt.exe】报错c000007d原因:Conda巨坑
开发语言·qt·conda
小邓儿◑.◑3 小时前
C++武功秘籍 | 入门知识点
开发语言·c++
struggle20254 小时前
deepseek-cli开源的强大命令行界面,用于与 DeepSeek 的 AI 模型进行交互
人工智能·开源·自动化·交互·deepseek
码银5 小时前
Java 集合:泛型、Set 集合及其实现类详解
java·开发语言
大G哥5 小时前
PHP标签+注释+html混写+变量
android·开发语言·前端·html·php
傻啦嘿哟5 小时前
HTTP代理基础:网络新手的入门指南
开发语言·php
fish_study_csdn5 小时前
pytest 技术总结
开发语言·python·pytest
咖啡调调。5 小时前
使用Django框架表单
后端·python·django