お世話になります。
初めて投稿いたします。
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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルグラフの一括設定。
Excel(エクセル)
-
たくさん作った同じ設定のグラフを一括して変更したい
Excel(エクセル)
-
Excel 複数のグラフの軸の書式設定を一気に変更するには?
Excel(エクセル)
-
-
4
エクセルの散布図のX軸に文字を表示したいのですが、どうしたらよいのでしょうか?
Excel(エクセル)
-
5
Excel:別シートにグラフを貼り付けたときにデータを反映させたい
Excel(エクセル)
-
6
EXCELでコピーしたグラフのデータ範囲変更について
Excel(エクセル)
-
7
別のシートから値を取得するとき
Visual Basic(VBA)
-
8
Excel関数:「0」を除いた標準偏差の計算方法2
Excel(エクセル)
-
9
エクセルのシートをコピーしてもグラフは古い所を参照
財務・会計・経理
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
グラフの横・縦項目が全部表示...
-
エクセルの散布図のX軸に文字...
-
エクセルの対数グラフで細かい...
-
エクセル2010 グラフの軸の最...
-
エクセル グラフの削除してし...
-
エクセルグラフ メモリを方眼...
-
Excelで横軸の目盛を対数で表示...
-
Excel グラフ 原点修正について
-
エクセルの散布図グラフで、横...
-
Excelのグラフの縦軸の目盛の値...
-
Excelでのボード線図の描き方
-
エクセルでグラフを作成する際...
-
EXCELでX軸が時間のグラフを作...
-
Excelグラフで数値軸の最小数値...
-
《エクセル2000》一箇所だけ、...
-
第2軸を追加すると折れ線グラフ...
-
4万件程度の散布図を作成したい...
-
エクセル 主軸と第2軸を入れ...
-
エクセル 折れ線グラフのY軸数...
-
エクセルのグラフでX軸とY軸を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの散布図のX軸に文字...
-
グラフの横・縦項目が全部表示...
-
エクセルの対数グラフで細かい...
-
エクセル グラフの削除してし...
-
エクセル2010 グラフの軸の最...
-
エクセルの散布図グラフで、横...
-
エクセルでグラフを作成する際...
-
エクセルグラフ メモリを方眼...
-
第2軸を追加すると折れ線グラフ...
-
エクセル 主軸と第2軸を入れ...
-
Excelで横軸の目盛を対数で表示...
-
EXCELでX軸が時間のグラフを作...
-
Excelのグラフで同じ数値軸を左...
-
エクセル2007:折れ線グラフを...
-
excelのグラフ、軸の数値を等間...
-
Excelグラフで数値軸の最小数値...
-
Excelのグラフの縦軸の目盛の値...
-
Excel グラフ 原点修正について
-
Excel のグラフの目盛表示をπ、...
-
エクセル365 グラフの2軸目が...
おすすめ情報