Question

我在Excel中有很多图表，我需要改变它们的外观。我在VBA中写了这个cscript，但是它没有用：

Sub Makro1()
'
' Makro1 Makro
'

'
For i = 1 To 28
    ActiveSheet.ChartObjects("Diagramm " & i).Activate
    ActiveSheet.Shapes("Diagramm " & i).Line.Visible = msoFalse
Next i
End Sub

使用此脚本我试图将帧线更改为无帧线。但它不起作用，我无法找到错误。而且，我需要更改y轴的名称。知道我该怎么办？

Answer 1

通过删除对象边框，不确定框架线是什么意思，你的代码对我有效。

Y轴是：

ActiveChart.Axes(xlValue, xlPrimary).HasTitle = True
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Title Here"

使用VBA优化更改图表特性

1 个答案: