excel - 运行时错误 '424' : Object Required when setting AxisTitle. 文本

Question

我编辑了一个图表并在编辑过程中捕获了一个宏。然后我想将 vba 复制并粘贴到其他一些 vba 文件中。我没有更改任何内容并保留了整个代码。但在以下行中始终存在 Object required error (424):

ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Kraft"

上下文是:

ActiveChart.ChartTitle.Select
ActiveChart.ChartTitle.Text = "Messung 1"
Selection.Format.TextFrame2.TextRange.Characters.Text = "Messung 1"
With Selection.Format.TextFrame2.TextRange.Characters(1, 9).ParagraphFormat
    .TextDirection = msoTextDirectionLeftToRight
    .Alignment = msoAlignCenter
End With
With Selection.Format.TextFrame2.TextRange.Characters(1, 9).Font
    .BaselineOffset = 0
    ...
End With
ActiveChart.ChartArea.Select
ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
ActiveChart.Axes(xlCategory).AxisTitle.Select
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Kraft"

我希望有人能提供帮助。

Answer 1

虽然您已经使用宏录制并且它应该会自动播放，但在标签文本的情况下似乎不会(我遇到了同样的问题)。

解决方案是改用从微软网站收集的这段代码

With Charts("Chart1").Axes(xlCategory) 
    .HasTitle = True 
    .AxisTitle.Text = "July Sales" 
End With

https://msdn.microsoft.com/en-us/library/office/ff839276.aspx

我也在这个堆栈溢出帖子中找到了解决方案 Excel 2007 VBA Problem setting Axis Title