[[20240208191112]]　『マクロでグラフ軸の変更』（テン）　ページの最後に飛ぶ

『マクロでグラフ軸の変更』（テン）

グラフ軸の変更をマクロでしたいのですが、★箇所から下の指定グラフのX軸が変わりません。下記コードをどのように修正すればよいでしょうか？＊コメントブロックしてある箇所は試しに作成したのですが、正常に作動します。よろしくお願いいたします。

sub test()
　　Dim cht As ChartObject

    Dim maxAx As Date, minAx As Date
    Dim dstSH6 As Worksheet

    Set dstSH6 = dstWB.Worksheets("グラフ")
    maxAx = Date
    minAx = DateAdd("m", -2, Date)
    For Each cht In dstSH6.ChartObjects
        With cht.Chart.Axes(xlCategory)
            .MinimumScale = minAx
            .MaximumScale = maxAx
        End With
        If cht.Name Like "グラフ 1" Or cht.Name Like "グラフ 19" Then '★
            With cht.Chart.Axes(xlValue)
                .MinimumScale = 0
                .MaximumScale = 800000
            End With
        End If
    Next
'    Set cht = dstSH6.ChartObjects("グラフ 1")
'    With cht.Chart.Axes(xlValue)
'        .MinimumScale = 0
'        .MaximumScale = 600000
'    End With
End Sub

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

なんで　Like　なの？
（ワイルド２） 2024/02/08(木) 20:13:54

 グラフの名前を、初期値から変更する
 or
 cht.Name = "Chart 1"　
（マナ） 2024/02/08(木) 20:47:42

確かになぜlikeにしたのでしょう。。
間違いに気づけました。
お二方ありがとうございます。
下記コードで正常に動きましたm(__)m
If cht.Name = "Chart 1" Or cht.Name = "Chart 19" Then

（テン） 2024/02/09(金) 08:53:28

コメント返信：

[ 一覧(最新更新順) ]

[[20240208191112]] 『マクロでグラフ軸の変更』（テン） ページの最後に飛ぶ

[[20240208191112]]　『マクロでグラフ軸の変更』（テン）　ページの最後に飛ぶ