お世話になります。
初めて投稿いたします。
VBA初心者です。エクセルグラフの軸ラベルを一括変換したいのですが、分からなくて困っています。
過去ログ、個人HPなどを参考にして、一つのグラフを選択、下記マクロを実行すれば、一つのグラフのみなら軸ラベルを変更する事が出来たのですが、ワークシート内の複数の埋め込みグラフを一発でラベル変更する場合のマクロが作成できません。
当方会社員、データをまとめる為、今回100ヶほどのグラフを一括変換したいため、どうしてもマクロ処理したいと考えています。
For Each・・・Next でループさせたいのですが、何分初心者勉強中の為、エラー多発、何方かお分かりの方、お助け下さい。
Sub 軸ラベル一括変換()
With ActiveChart
With .Axes(xlCategory, xlPrimary)
.HasTitle = True
.AxisTitle.Text = "X"
End With
With .Axes(xlValue, xlPrimary)
.HasTitle = True
.AxisTitle.Text = "y"
End With
End With
End Sub
No.1ベストアンサー
- 回答日時:
こんなのではどうでしょうか?
ActiveSheetの全グラフを変更する場合
Sub 軸ラベル一括変換()
Dim co As ChartObject
For Each co In ActiveSheet.ChartObjects
With co.Chart
With .Axes(xlCategory, xlPrimary)
.HasTitle = True
.AxisTitle.Text = "X"
End With
With .Axes(xlValue, xlPrimary)
.HasTitle = True
.AxisTitle.Text = "y"
End With
End With
Next
End Sub
全シートの全グラフを変更する場合
Sub 軸ラベル一括変換()
Dim ws As Worksheet
Dim co As ChartObject
For Each ws In ThisWorkbook.Worksheets
For Each co In ws.ChartObjects
With co.Chart
With .Axes(xlCategory, xlPrimary)
.HasTitle = True
.AxisTitle.Text = "X"
End With
With .Axes(xlValue, xlPrimary)
.HasTitle = True
.AxisTitle.Text = "y"
End With
End With
Next
Next
End Sub
素早く、明確なご回答誠にありがとうございます。
お陰様でばっちりうまく行きました!
どうもありがとうございました。助かりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Excel(エクセル) エクセルのイベントVBAを複数のシートで動かしたい 1 2022/12/07 16:55
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) 【VBA】印刷マクロのループ処理が反映されません 3 2022/08/09 02:15
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
エクセルグラフの一括設定。
Excel(エクセル)
-
たくさん作った同じ設定のグラフを一括して変更したい
Excel(エクセル)
-
Excel 複数のグラフの軸の書式設定を一気に変更するには?
Excel(エクセル)
-
-
4
EXCELでコピーしたグラフのデータ範囲変更について
Excel(エクセル)
-
5
エクセルの散布図のX軸に文字を表示したいのですが、どうしたらよいのでしょうか?
Excel(エクセル)
-
6
Excel:別シートにグラフを貼り付けたときにデータを反映させたい
Excel(エクセル)
-
7
複数シートからデータを拾ってグラフを作成したい
Excel(エクセル)
-
8
モーターの定格電流の出し方
環境・エネルギー資源
-
9
別のシートから値を取得するとき
Visual Basic(VBA)
-
10
Excel関数:「0」を除いた標準偏差の計算方法2
Excel(エクセル)
-
11
エクセルのマクロでアクティブシート内の選択した複数のグラフのみ軸の目盛を変更
その他(Microsoft Office)
-
12
エクセルのシートをコピーしてもグラフは古い所を参照
財務・会計・経理
-
13
エクセル2010 グラフの軸の最大値最小値をセル参照する
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの散布図のX軸に文字...
-
グラフの横・縦項目が全部表示...
-
エクセルの対数グラフで細かい...
-
エクセルの散布図グラフで、横...
-
エクセルグラフ メモリを方眼...
-
エクセル グラフの削除してし...
-
エクセル2010 グラフの軸の最...
-
Excelで横軸の目盛を対数で表示...
-
第2軸を追加すると折れ線グラフ...
-
EXCELでX軸が時間のグラフを作...
-
エクセル2007:折れ線グラフを...
-
エクセルでグラフを作成する際...
-
エクセル、パワーポイントで作...
-
Excel のグラフの目盛表示をπ、...
-
エクセルでグラフ
-
Excel グラフ 原点修正について
-
Excelで0を基点にして、目盛を...
-
Excelのグラフの縦軸の目盛の値...
-
《エクセル2000》一箇所だけ、...
-
エクセル365 グラフの2軸目が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの散布図のX軸に文字...
-
グラフの横・縦項目が全部表示...
-
エクセル2010 グラフの軸の最...
-
エクセル グラフの削除してし...
-
エクセルの対数グラフで細かい...
-
エクセルでグラフを作成する際...
-
エクセルの散布図グラフで、横...
-
エクセル 主軸と第2軸を入れ...
-
第2軸を追加すると折れ線グラフ...
-
EXCELでX軸が時間のグラフを作...
-
エクセル2007:折れ線グラフを...
-
Excelのグラフで同じ数値軸を左...
-
Excelグラフで数値軸の最小数値...
-
エクセル365 グラフの2軸目が...
-
《エクセル2000》一箇所だけ、...
-
エクセルグラフ メモリを方眼...
-
4万件程度の散布図を作成したい...
-
エクセル、パワーポイントで作...
-
excelのグラフ、軸の数値を等間...
-
Excelで0を基点にして、目盛を...
おすすめ情報