exxcelで作成したグラフの縦軸,横軸の目盛り(数値)のフォントを変えるマクロがうまくいかない

windows10,offics2013のexelで作成した散布図グラフのx軸の目盛り数字のフォントを変更する手順についてご教示ください。

VBAで数値解析関連のユーザー関数を作成・使用はある程度経験がありますが,操作マクロは初心者です。

手動でグラフの横軸のフォントを変更することは問題なくできました。グラフ枚数が多いので自動化しようとして,「マクロの記録」を使って記録し,実行すると,

実行時エラー’-2147467259(80004005)’

’TextFrame2'メソッドは失敗しました:’ChartFrormat'オブジェクト

となります。

因みに記録されたマクロは以下です。

    ActiveSheet.ChartObjects("グラフ 7").Activate
    ActiveChart.Axes(xlCategory).Select
    Application.CommandBars("Format Object").Visible = False
    With Selection.Format.TextFrame2.TextRange.Font
        .BaselineOffset = 0
        .Fill.Visible = msoTrue
        .Fill.ForeColor.RGB = RGB(0, 176, 80)
        .Fill.Transparency = 0
        .Fill.Solid
    End With

なお,グラフタイトルや凡例の文字,軸ラベルなどは問題なくできました.

よろしくお願いします。

回答
回答

「フォントを変更する」という部分のニュアンスが今ひとつ読み取れなかったので意味を取り違えていたら申し訳ありません.

対象のグラフの名前が「グラフ 7」で,且つ,当該グラフがマクロが記載されているExcelファイルのアクティブWorksheetにあるという前提で,フォントの種類を変更する場合(ここでは「MS ゴシック」に変更)は

ActiveSheet.ChartObjects("グラフ 7").Chart.Axes(xlCategory).TickLabels.Font.Name = "MS ゴシック"

にて変更出来ると思います.また,フォントの色を変更する場合(ここでは「RGB(0, 176, 80)」に変更)は

ActiveSheet.ChartObjects("グラフ 7").Chart.Axes(xlCategory).TickLabels.Font.Color = RGB(0, 176, 80)

て変更できると思います.

この回答で問題は解決しましたか?

役に立ちませんでした。

回答としてマークしていただきありがとうございます。

この返信の満足度をお教えください。

フィードバックをお送りいただきありがとうございます。今後のサイト改善に役立てて参ります。

この回答の満足度をお教えください。

フィードバックをお送りいただきありがとうございます。

 
 

質問情報


最終更新日 2020年7月01日 表示 3,576 適用先: