Excel 2007 VBA问题设置轴标题

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