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

相关推荐
小蕾Java24 分钟前
PyCharm快速上手指南,数据类型篇
ide·python·pycharm
胖咕噜的稞达鸭39 分钟前
算法入门:专题攻克主题一---双指针(2)快乐数 呈最多水的容器
开发语言·数据结构·c++·算法
沐知全栈开发1 小时前
Perl 简介
开发语言
飞翔的佩奇1 小时前
【完整源码+数据集+部署教程】 白血球图像分割系统: yolov8-seg-repvit
python·yolo·计算机视觉·数据集·yolo11·白血球图像分割系统·、yolov8
数据与人工智能律师1 小时前
数字人民币钱包抉择:匿名自由与实名安全的法律风险评估
大数据·人工智能·python·云计算·区块链
独行soc1 小时前
2025年渗透测试面试题总结-101(题目+回答)
网络·python·安全·web安全·adb·渗透测试·安全狮
-雷阵雨-1 小时前
数据结构——优先级队列(堆)
java·开发语言·数据结构·intellij-idea
好家伙VCC1 小时前
**全息显示技术的发散创新与深度探索**一、引言随着科技的飞速发展,全息显示技术已成为显示领域的一大研究热点。本文将带你
java·图像处理·python·科技·计算机视觉
步行cgn2 小时前
Java项目包结构设计与功能划分详解
java·开发语言·架构·mvc
ss2732 小时前
手写MyBatis第92弹:SqlSource体系、SqlNode树与Trim标签实现原理全揭秘
java·开发语言