即効テクニック

グラフ関連のテクニック

Chartの操作−項目の変更

(Excel 97/2000)

作成したグラフの項目軸(例えば折れ線グラフの場合には横軸)の項目名や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