[[20231120100831]]　『グラフとプロットエリアのサイズ』（panda）　ページの最後に飛ぶ

『グラフとプロットエリアのサイズ』（panda）

マクロ初心者です。よろしくお願いします。

ワークシート内のすべてのグラフサイズ、プロットエリアサイズ、フォントサイズ、横軸の表示形式をマクロで修正したいです。

調べながら作ったのですが、プロットエリアをうまく指定できずにいます。
アドバイスよろしくお願いします。

Sub グラフ調整()
'
' グラフ調整 Macro
'
Dim Cht As ChartObject

With ActiveSheet

    For Each Cht In .ChartObjects

    Cht.Height = 113.9
    Cht.Width = 527.8

    Cht.PlotArea.Height = 92.3
    Selection.Left = 22.3
    Selection.Top = 13.1
    Selection.Width = 484.9

    ActiveChart.Axes(xlCategory).Select
    Selection.TickLabels.NumberFormatLocal = "[$-ja-JP]ge.m"
    ActiveChart.Axes(xlCategory).MinorUnit = 6
    Range("A1").Select

    Next

    End With
End Sub

＜使用 Excel：Microsoft365、使用 OS：Windows11 ＞

   Cht.PlotArea.Height = 92.3

で躓いています。

    ActiveChart.Axes(xlCategory).Select
    Selection.TickLabels.NumberFormatLocal = "[$-ja-JP]ge.m"
    ActiveChart.Axes(xlCategory).MinorUnit = 6

はまだ修正していませんが、

    Cht.Axes(xlCategory).Select
    Selection.TickLabels.NumberFormatLocal = "[$-ja-JP]ge.m"
    Cht.Axes(xlCategory).MinorUnit = 6

にする予定です。
文章まとめてから投稿していなくてすみません。

（panda） 2023/11/20(月) 10:16:17

 ステップ実行し、ローカルウインドウで、objectの階層構造をよく確認するとよいですよ。
 Cht.Chart.PlotArea.Height = 92.3
 ですかね。
（xyz） 2023/11/20(月) 10:34:35

ありがとございます！

    Cht.Chart.PlotArea.Select
    Cht.Chart.PlotArea.Height = 92.3
でうまくいきました！
マクロの記録をしてから、ネットで調べながらアレンジしているだけで、マクロの基礎を理解していないため、階層構造というものがあることすら知りませんでした。
勉強してみます。
（panda） 2023/11/20(月) 13:58:17

コメント返信：

[ 一覧(最新更新順) ]

[[20231120100831]] 『グラフとプロットエリアのサイズ』（panda） ページの最後に飛ぶ

[[20231120100831]]　『グラフとプロットエリアのサイズ』（panda）　ページの最後に飛ぶ