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