Chartの操作−項目の変更
 作成したグラフの項目軸(例えば折れ線グラフの場合には横軸)の項目名
やFontの大きさなどを変更したい場合にはAxisオブジェクト以下のプロパティー
を使用します。

===============================
 1つ目のサンプルではシート上のグラフから項目名を取得します。
   (CategoryNamesプロパティー)
 2つ目のサンプルでは項目名に使用される文字の大きさを変更します。
   (TickLabelsプロパティー)
===============================
(前提)シート上のグラフ、コマンドボタン
 ※サンプルでは折れ線グラフで実行を確認しています。

(サンプル1)
Private Sub CommandButton1_Click()

    Dim Var As Variant
    Dim i As Integer
    
    ActiveCell.Activate 'コマンドボタンからの実行に必要(97のみ)
    
    With ActiveSheet.ChartObjects(1).Chart
    
        '項目軸から項目を取得し、Variant型配列に格納
        'SeriesCollection.XValuesからも取得可能
        Var = .Axes(xlCategory).CategoryNames
        
        If Not IsArray(Var) Then
            MsgBox "項目を取得できませんでした"
            Exit Sub
        End If
        
        '配列の下限から上限までループ
        For i = LBound(Var) To UBound(Var)
            '取得したデータを変更(ここでは後ろ一文字を削る)
            Var(i) = Left(Var(i), Len(Var(i)) - 1)
        Next i
        
        '変更後のデータを項目名としてCategoryNamesに設定
        .Axes(xlCategory).CategoryNames = Var
    
    End With

End Sub

(サンプル2)
Private Sub CommandButton2_Click()

    ActiveCell.Activate'コマンドボタンからの実行に必要(97のみ)

    ActiveSheet.ChartObjects(1).Chart _
        .Axes(xlCategory).TickLabels.Font.Size = 9

End Sub

Excel97,2000



戻る


Excel Word Access VBA! モーグ