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 

私のコードに何か問題がありますか？私は、軸のタイトル名を設定中にマクロを記録しようとしましたが、マクロは名前の設定時に空白です。

すべてのヘルプはiCountが定義されていないとiskewplaneはどちらかではなかったので、あなたはOption Explicitを使用する必要があります

Answer 1

を高く評価しています。 - 軸が自動的に1を持っていないあなたが最初AxisTitleオブジェクトを作成する必要が

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

：

はここで右のコードです。これはAxis.HasTitle = Trueという設定で行われますが、これはやや珍しい方法です。