[[20220615084909]]　『VBAで複数グラフの縦軸第二軸のフォントサイズを普x（おまりー）　ページの最後に飛ぶ

『VBAで複数グラフの縦軸第二軸のフォントサイズを変更』（おまりー）

複数のグラフの縦軸第2軸のフォントサイズを変更したいのですが、以下コードがエラー('Axes'メソッドは失敗しました)となります。

Sub 縦軸第2軸フォントサイズ変更()
　
　Dim i As Integer
　
　For i = 1 To 80

　　ActiveSheet.ChartObjects(i).Activate

    ActiveChart.Axes(xlValue, xlSecondary).TickLabels.Font.Size = 5

End Sub

対策をお教えいただけると幸いです。
よろしくお願いいたします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 ChartObjects(1)～(80)の全てのグラフに第2軸が存在しますか？
 第2軸が存在しないChartObjectがあるのではないですか？

 現況のコードなら以下のように、エラートラップすることで回避できると思います。

 Sub 縦軸第2軸フォントサイズ変更()
    Dim i As Integer
    On Error Resume Next
    For i = 1 To 80
        ActiveSheet.ChartObjects(i).Activate
        ActiveChart.Axes(xlValue, xlSecondary).TickLabels.Font.Size = 5
    Next
    On Error GoTo 0
 End Sub

 *質問する際は、最低限、コンパイルエラーのない事を確認してください。
 提示のコードでは実行時エラー云々の前にForに対するNextがないのでコンパイルエラーとなりますね。
（mayo2007） 2022/06/15(水) 11:07

mayo2007様

ご回答いただきありがとうございます。
エラートラップにて無事第2軸のフォントサイズを変更する事ができました。

また、コンパイルエラーのご指摘ありがとうございます。
質問欄にペーストする際にいつの間にか削除していたようです。
以後気を付けます。

ありがとうございました。
（おまりー） 2022/06/15(水) 15:17

コメント返信：

[ 一覧(最新更新順) ]

[[20220615084909]] 『VBAで複数グラフの縦軸第二軸のフォントサイズを普x（おまりー） ページの最後に飛ぶ

[[20220615084909]]　『VBAで複数グラフの縦軸第二軸のフォントサイズを普x（おまりー）　ページの最後に飛ぶ