如何用vba设置图表的坐标轴? |
您所在的位置:网站首页 › excel折线图如何设置横纵坐标轴标题 › 如何用vba设置图表的坐标轴? |
如何用vba设置图表的坐标轴?
2018年9月2日
作者:水星Excel
20,702 次浏览
暂无评论
在vba中图表对象Chart的Axes方法可以返回图表的坐标轴。 它可以返回单个坐标轴(横坐标轴或者纵坐标轴)或者所有坐标轴的集合。 它的语法如下: expression. Axes( _Type_ , _AxisGroup_ )其中Type参数为要返回的坐标轴的类型,可以是以下值: 名称 值 说明 xlCategory 1 横坐标轴 xlValue 2 纵坐标轴 xlSeriesAxis 3 系列坐标轴AxisGroup参数为要返回主坐标轴还是次坐标轴,可以是以下值: 名称 值 说明 xlPrimary 1 主坐标轴 xlSecondary 2 次坐标轴在vba中Axis对象表示图表中的单个坐标轴,Axes对象表示图表中的坐标轴集合。 如果要返回坐标轴集合,只需将Axes方法的两个参数省略即可。 以下vba代码举例说明了如何设置图表的纵坐标轴的最大、最小刻度值以及坐标轴的单位和横坐标轴显示的数值格式。 Sub QQ1722187970() '创建内嵌的图表 Dim oWK As Worksheet Set oWK = Sheet1 Dim oChart As Chart Set oChartObject = oWK.ChartObjects(1) Set oChart = oChartObject.Chart Dim oSeries As Series Dim oTL As TickLabels '单个坐标轴 Dim oA As Axis '坐标轴集合 Dim oAS As Axes Dim vXV Dim vValues Dim vBS With oChart '设置纵坐标 Set oAZ = .Axes(xlValue, xlPrimary) With oAZ '坐标轴的大单位 .MajorUnit = 10 '坐标轴的小单位 .MinorUnit = 5 '最小刻度值 .MinimumScale = 0 '最大刻度值 .MaximumScale = 100 '横坐标交叉于纵坐标的具体刻度值 .CrossesAt = 10 Set oTL = .TickLabels '设置坐标轴的数值标记的数值格式 With oTL .NumberFormat = "0" End With End With '设置横坐标 Set oAH = .Axes(xlCategory, xlPrimary) With oAH Set oTL = .TickLabels '设置坐标轴的数值标记的数值格式 With oTL .NumberFormat = "0" End With End With End With End Sub 其它相关文章推荐:如何用vba设置图表的坐标轴的刻度线类型和刻度线标签的位置?如何用vba创建气泡图?如何在excel中用vba创建各种图表?如何用vba返回或设置图表系列的X轴值、Y轴值、气泡大小值?如何用vba更改excel图表的类型?如何用vba判断excel图表具有多少种图表类型? 分类 : VBA , 图表、图形 标签 : Axes , CrossesAt , MajorUnit , MaximumScale , MinimumScale , MinorUnit , TickLabels , 横坐标轴 , 纵坐标轴声明: 本站文章均属原创,未经作者同意必须保留此段声明,且在文章页面明显位置给出原文链接,否则视为侵权。如果想要每天都收到本站的技术文章推送,可以微信搜索公众号:水星Excel或者Excel_Office关注。其它事宜请加QQ:1722187970 或微信号:xycgenius 联系。 |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |