Question

我需要帮助在Excel 2007 VBA中设置X和Y轴标题。它一直抱怨“需要对象”：

Sub macro2()

Dim xAxis As Axis

icount = 1

Charts.Add
Charts(icount).Name = iskewplane & "deg Skew Plane"
Charts(icount).Activate

Set xAxis = Charts(icount).Axes(xlCategory)
With xAxis
    .Axis
    .AxisTitle.Text = "Theta (deg)"
End With

我的代码中有什么问题吗？我在设置轴标题名称时尝试录制宏，但在名称设置期间宏为空白。

感谢任何帮助

Answer 1

您应该使用Option Explicit，因为iCount未定义且iskewplane也未定义。

这是正确的代码：

Sub mac()
    Dim xAxis As Axis
    Dim iCount As Integer
    iCount = 1
    Charts.Add
     Charts(iCount).Name = "deg Skew Plane"
    Charts(iCount).Activate

    Set xAxis = Charts(iCount).Axes(xlCategory)
    With xAxis
        .HasTitle = True
        .AxisTitle.Caption = "Theta (deg)"
    End With
End Sub

Answer 2

首先必须创建AxisTitle对象 - 轴不会自动创建一个。这是通过设置Axis.HasTitle = True - 一种稍微不同寻常的方法来完成的。

Excel 2007 VBA问题设置轴标题

2 个答案: