我想使用VBA一次更改许多图形中XY轴的标题和格式。
我做了如下代码。
如果我有3个图形,要更改具有相同XY轴标题和格式的第二个图形,请复制并粘贴此代码,并将其从ChartObjects(1)更改为ChartObjects(2),还要更改第三个图形,我还要复制并再次粘贴此代码,并更改为ChartObjects(3)。
但是,如果我有100张图,似乎不可能将相同的代码复制和粘贴100次,并更改每个ChartObject。
有什么方法可以更轻松地更改许多图中的XY轴标题?
非常感谢,
Sub axis()
Dim xytitle As chart
Set xytitle = Worksheets("graph").ChartObjects(1).chart
With xytitle.axes(xlCategory)
.HasTitle = True
.AxisTitle.Text = "Treatment"
.AxisTitle.Font.Size = 11
.AxisTitle.Font.Bold = False
End With
With xytitle.axes(xlValue)
.HasTitle = True
.AxisTitle.Text = "Grain weight"
.MaximumScale = 60
.MajorUnit = 10
.AxisTitle.Font.Size = 11
.AxisTitle.Font.Bold = False
End With
End Sub
我想出了解决方案!谢谢:)
Sub axis()
Dim xytitle As Chart
Dim i As Integer
For i = 1 To 4
Set xytitle = Worksheets("test").ChartObjects(i).Chart
With xytitle.Axes(xlCategory)
.HasTitle = True
.AxisTitle.Text = "Treatment"
.AxisTitle.Font.Size = 11
.AxisTitle.Font.Bold = False
End With
With xytitle.Axes(xlValue)
.HasTitle = True
.AxisTitle.Text = "Grain weight"
.MaximumScale = 60
.MajorUnit = 10
.AxisTitle.Font.Size = 11
.AxisTitle.Font.Bold = False
End With
Next
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句