Excel 2007 VBA問題設置軸標題

Question

我需要幫助設置Excel 2007 VBA中的X和Y軸標題。它一直抱怨「Object required」：

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來完成 - 這是一種稍微不尋常的方法。