2016-08-30 35 views
0

我在excel中有很多图表,我需要改变它们的外观。我写这CSCRIPT在VBA,但它不工作:excel用VBA改变图表特征

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轴的名称。任何想法我怎么能做到这一点?

+0

你确定你有一个'Diagramm 1'图? – pnuts

+1

@pnuts:你的意思是如果我有数字“1”(如果我的图表的编号从1开始)或者它是否被命名为“Diagramm”? “Diagramm”是德语版excel的“图表”。 – GeMa

+0

两者的混合(是的,我想知道是否可能涉及拼写错误!) – pnuts

回答

0

不确定你所说的帧线是什么意思,你的代码原样通过删除对象边框来工作。

Y轴是:

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