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可获得详细资料信息
_______________________________
有启发 点在看 朋友分享 约作者 请留言 直接交流
更多关联阅读