用于处理图表&图形的VBA代码大全3

fanjy

发布于 2023-08-30 08:08:13

2590

发布于 2023-08-30 08:08:13

文章被收录于专栏：完美Excel完美Excel

网格线

网格线帮助用户查看元素对坐标轴的相对位置。

添加或删除网格线：

'添加网格线
cht.SetElement (msoElementPrimaryValueGridLinesMajor)
cht.SetElement (msoElementPrimaryCategoryGridLinesMajor)
cht.SetElement (msoElementPrimaryValueGridLinesMinorMajor)
cht.SetElement (msoElementPrimaryCategoryGridLinesMinorMajor)
'删除网格线
cht.Axes(xlValue).MajorGridlines.Delete
cht.Axes(xlValue).MinorGridlines.Delete
cht.Axes(xlCategory).MajorGridlines.Delete
cht.Axes(xlCategory).MinorGridlines.Delete

改变网格线颜色：

cht.Axes(xlValue).MajorGridlines.Format.Line.ForeColor.RGB = RGB(255, 0, 0)

更改网格线的透明度：

cht.Axes(xlValue).MajorGridlines.Format.Line.Transparency = 0.5

图表标题

图表标题是在图表顶部的文本。所有的代码以cht开始，假设已经使用上面介绍的代码引用了图表。

显示或隐藏图表标题：

'显示图表标题
cht.HasTitle = True
'隐藏图表标题
cht.HasTitle = False

修改图表标题文本：

cht.ChartTitle.Text = "我的图表标题"

定位图表标题：

cht.ChartTitle.Left = 10
cht.ChartTitle.Top = 10

格式化图表标题：

cht.ChartTitle.TextFrame2.TextRange.Font.Name = "Calibri"
cht.ChartTitle.TextFrame2.TextRange.Font.Size = 16
cht.ChartTitle.TextFrame2.TextRange.Font.Bold = msoTrue
cht.ChartTitle.TextFrame2.TextRange.Font.Bold = msoFalse
cht.ChartTitle.TextFrame2.TextRange.Font.Italic = msoTrue
cht.ChartTitle.TextFrame2.TextRange.Font.Italic = msoFalse

图例

图表图例提供了用于标识图表中的每个系列的颜色键。

显示或隐藏图表图例：

'显示图例
cht.HasLegend = True
'隐藏图例
cht.HasLegend = False

定位图例：

'定位图例
cht.Legend.Position = xlLegendPositionTop
cht.Legend.Position = xlLegendPositionRight
cht.Legend.Position = xlLegendPositionLeft
cht.Legend.Position = xlLegendPositionCorner
cht.Legend.Position = xlLegendPositionBottom
'允许图例与图表重叠
'False = 允许重叠, True = 不重叠
cht.Legend.IncludeInLayout = False
cht.Legend.IncludeInLayout = True
'移动图例到特定点
cht.Legend.Left = 20
cht.Legend.Top = 200
cht.Legend.Width = 100
cht.Legend.Height = 25

本文参与腾讯云自媒体分享计划，分享自微信公众号。

原始发表：2023-05-29，如有侵权请联系 cloudcommunity@tencent.com 删除

vba