vba excel 取得chart保存图片_VBA自动出图

VBA是利用Office实现个人小型办公自动化的有效手段(工具)，这是我的对VBA的定义。我以传递我多年实际经验为宗旨，授人以渔。如果大家对VBA感兴趣，认为VBA可以给自己的工作带来帮助，可以系统的学习，最好能成为我的学员，汲取我的经验。目前我只能满足对学员答疑，辅导，对非学员朋友还望见谅。

今日推出常用“积木”过程案例分享第325期: VBA自动生成图表。这些专辑就是我多年实际利用VBA的经验记录，来源于我多年的实践经验。目前我已经将所有代码修正为适合64位和32位两种系统，大家要把这些代码块作为一块块的积木对待，平时要多积累，建立自己的“积木库”，需要时拿来可以修正、组合。这就是我的“积木编程”的思想。最近代码是出自我的第一套教程”VBA代码解决方案”。如以提高自己能力为目的可以W!eC!h a t两个对象: VBA6337或者NZ9668，两者一致。

====================== ① ======================

Sub mynz_30()

    Dim myRange As Range

    Dim myChart As ChartObject

    Dim MR As Integer

    Sheets("29,30").Select

    MR = Range("A1048576").End(xlUp).Row

    Set myRange = Sheets("29,30").Range("A" & 1 & ":F" & MR)   

    Set myChart = Sheets("29,30").ChartObjects.Add(150, 140, 400, 250)

    myChart.Chart.ChartType = xlColumnClustered

    myChart.Chart.SetSourceData Source:=myRange, PlotBy:=xlRows

   myChart.Chart.ApplyDataLabels ShowValue:=True

   myChart.Chart.HasTitle = True

    myChart.Chart.ChartTitle.Text = "我的图表"

    With myChart.Chart.ChartTitle.Font

        .Size = 20

        .ColorIndex = 3

        .Name = "华文新魏"

    End With

      With myChart.Chart.ChartArea.Interior

        .ColorIndex = 8

        .PatternColorIndex = 1

        .Pattern = xlSolid

    End With

    With myChart.Chart.PlotArea.Interior

        .ColorIndex = 35

        .PatternColorIndex = 1

        .Pattern = xlSolid

    End With

    With myChart.Chart.SeriesCollection(2).DataLabels.Font

        .Size = 17

        .ColorIndex = 3

    End With

    Set myRange = Nothing

    Set myChart = Nothing

End Sub

================②=====================

代码解读：

1) 第6行代码取得数据范围的最关键的数据.

2) 第7行代码指定图表的数据源。

3) 第8行代码使用Add方法创建一个新图表，

4) 第9行代码指定新创建图表的图表类型，应用于Chart对象的ChartType属性返回或设置图表的类型，可以为XlChartType常量之一，本例中设置为xlColumnClustered即图表类型为簇状柱形图。

5) 第10行代码指定图表的数据源和绘图方式，

6) 第11行代码使用ApplyDataLabels方法使图表显示数据标签和数据点的值，

7) 第12到13行代码设置新创建的图表有可见的标题并设置图表标题的文字。应用于Chart对象的HasTitle属性，如果坐标轴或图表有可见标题，则该值为True，而ChartTitle属性返回一个ChartTitle对象，代表指定图表的标题。

8) 第14行到第18行代码设置图表标题文字的格式。

9) 第19行到第23行代码设置图表区的颜色。

10) 第24行到第28行代码设置绘图区的颜色。

11) 第29行到第32行代码设置图表上第二个数据系列中的数据标签的字体格式。

各套教程的介绍：

第1套(初级)：VBA代码解决方案

第2套(中级+)：VBA数据库解决方案

第3套(中级-)：VBA数组与字典解决方案

第4套(初级)：VBA代码解决方案之视频

第5套(高级)：VBA中类的解读和利用

第6套(高级)：VBA信息获取与处理

学习顺序：13265或者43265。其中第四套是对第一套的视频讲解，所以第一和第四只选其一即可。

分享成果，随喜正能量

加微信VBA6337或NZ9668可获得详细资料信息

_______________________________

---

有启发 点在看 朋友分享 约作者 请留言 直接交流

更多关联阅读