14、Excel 图表与数据透视表的动态创建与应用

最新推荐文章于 2025-11-26 15:04:18 发布

sre5engineer

最新推荐文章于 2025-11-26 15:04:18 发布

阅读量15

点赞数

CC 4.0 BY-SA版权

分类专栏：驾驭Excel自动化文章标签： Excel 图表数据透视表

本文链接：https://blog.youkuaiyun.com/sre5engineer/article/details/155368816

驾驭Excel自动化专栏收录该内容

21 篇文章 ¥499.90

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

Excel 图表与数据透视表的动态创建与应用

1. 动态放置图表

1.1 创建 `PlaceChartDynamic` 子程序

在 VBE 中，于 Standard Module1 里创建一个名为 PlaceChartDynamic 的新子程序。将 PlaceChart 过程的代码复制并粘贴到 PlaceChartDynamic 中。

1.2 存储图表位置信息到数组

创建 GetChartInfo 函数 ：在 Standard Module1 上创建一个名为 GetChartInfo() 的新函数。

Private Function GetChartInfo(MyChart As ChartObject) As Variant
    Dim varReturn As Variant
    Dim arrChartInfo(3) As Variant
    With MyChart
        arrChartInfo(0) = .Name
        arrChartInfo(1) = .Top
        arrChartInfo(2) = .Left
        arrChartInfo(3) = .Height
    End With
    varR