Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4298 / 13646 ツリー ←次へ | 前へ→

【57442】グラフの第2数値軸についての質問 fujitaku 08/8/23(土) 14:07 質問[未読]
【57445】Re:グラフの第2数値軸についての質問 りん 08/8/23(土) 21:14 発言[未読]
【57451】Re:グラフの第2数値軸についての質問 fujitaku 08/8/24(日) 12:27 お礼[未読]

【57442】グラフの第2数値軸についての質問
質問  fujitaku  - 08/8/23(土) 14:07 -

引用なし
パスワード
   はじめまして、fujitakuと申します。
excelマクロについて質問があります。
グラフで第2数値軸を使用することがあると思いますが、マクロを使ってある系列の第2数値軸を設定するにはどうすればよいのでしょうか。
また、その第2数値軸の目盛りをマクロで変更するにはどうすればよいのでしょうか。(第1数値軸の目盛りのマクロでの変更はできました。)
最後に、数値軸のタイトルの文字の向きを縦(上→下)にマクロで変更するにはどうしたらよいのでしょうか。
以上、解答をどなたかよろしくお願いいたします。

【57445】Re:グラフの第2数値軸についての質問
発言  りん E-MAIL  - 08/8/23(土) 21:14 -

引用なし
パスワード
   fujitaku さん、こんばんわ。

>グラフで第2数値軸を使用することがあると思いますが、マクロを使ってある系列の第2数値軸を設定するにはどうすればよいのでしょうか。
>また、その第2数値軸の目盛りをマクロで変更するにはどうすればよいのでしょうか。(第1数値軸の目盛りのマクロでの変更はできました。)

AxisGroupプロパティと、Axes(xlValue, xlSecondary)を調べると幸せになれるかもしれません。

>最後に、数値軸のタイトルの文字の向きを縦(上→下)にマクロで変更するにはどうしたらよいのでしょうか。

単純に記録するとこうなります。
  ActiveSheet.ChartObjects("グラフ 1").Activate
  ActiveChart.Axes(xlValue, xlSecondary).AxisTitle.Select
  With Selection
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .ReadingOrder = xlContext
    .Orientation = xlVertical
  End With

Select→Selectionは不要な処理なので、

  '対象のグラフが一つ目の場合
  With ActiveSheet.ChartObjects(1)
   'そのグラフの第2軸のタイトルをいじる。
   With .Chart.Axes(xlValue, xlSecondary).AxisTitle
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .ReadingOrder = xlContext
    .Orientation = xlVertical
    
   End With
  End With

グラフをループしたり、該当のグラフを指定したりして、Withでくくればよいと思います。

【57451】Re:グラフの第2数値軸についての質問
お礼  fujitaku  - 08/8/24(日) 12:27 -

引用なし
パスワード
   りんさん、ご解答ありがとうございました。
りんさんのご解答を参考に調べて、問題を解決することが出来ました。
どうもありがとうございました。

4298 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free