作者：绿色风
分类：
时间：2022-08-17
浏览：168
楼主
biaotiger1 |
Q：如何用VBA设置柱形图Y轴的最大值最小值？
A：ALT+F11→“插入”→“模块”，在代码窗口中输入代码如下
- Sub 插入柱形图并设置Y轴最大最小值()
- Dim Chr As Chart
- Set Chr = Sheets("Sheet1").Shapes.AddChart.Chart '插入空白图表
- With Chr '设置图表元素
- .ChartType = xlColumnClustered '柱形图
- .SetSourceData Source:=Range("Sheet1!$A$1:$A$10") '定义数据区域
- With .Axes(xlValue)
- .MaximumScale = 100 '设置最大值
- .MinimumScale = 0 '设置最小值
- End With
- End With
- End Sub
运行以上代码，则在sheet1工作表插入一个柱形图，该柱形图以Sheet1工作表的$A$1:$A$10区域为数据源，且垂直轴最大值为100，最小值为0。
 最大值最小值.rar
|
2楼
535535163 |
下载解压后是“最大值最小值.xlsm”这xlsm格式没法打开啊。 |
3楼
wjc2090742 |
xlsm是07及10的带宏的模板格式，刚好我也要学习，帮你转了一份03格式的模板。你用这个附件吧。
 最大值最小值.zip
|
4楼
535535163 |
多谢楼上，但出现了错误，如上图。01.jpg
 |
5楼
biaotiger1 |
2003版本 如下- Sub 自定义图表最大值最小值()
- Dim chr As Chart
- Set chr = Charts.Add
- With chr
- .ChartType = xlLineMarkers
- .SetSourceData Source:=Sheets("Sheet1").Range("A1:A10"), PlotBy _
- :=xlColumns
- With .Axes(xlValue)
- .MinimumScale = 10
- .MaximumScale = 100
- End With
- .Location Where:=xlLocationAsObject, Name:="Sheet1"
- End With
- End Sub
|
6楼
535535163 |
多谢版主，但是还是出了问题，如图：
 |
7楼
wnianzhong |
学习了,谢谢! |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一