お世話になります。
初めて投稿いたします。
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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
エクセルグラフの一括設定。
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グラフで数値軸の最小数値...
-
エクセル2007:折れ線グラフを...
-
第2軸を追加すると折れ線グラフ...
-
EXCELでX軸が時間のグラフを作...
-
Excelのグラフで同じ数値軸を左...
-
エクセルのグラフでパーセント...
-
エクセル 主軸と第2軸を入れ...
-
EXCEL グラフの横軸の表示方法...
-
excelのグラフ、軸の数値を等間...
-
Excelのグラフの縦軸の目盛の値...
-
Excel グラフ 原点修正について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの散布図のX軸に文字...
-
グラフの横・縦項目が全部表示...
-
エクセルの対数グラフで細かい...
-
エクセル グラフの削除してし...
-
エクセル2010 グラフの軸の最...
-
エクセルの散布図グラフで、横...
-
エクセルでグラフを作成する際...
-
エクセルグラフ メモリを方眼...
-
第2軸を追加すると折れ線グラフ...
-
エクセル 主軸と第2軸を入れ...
-
Excelで横軸の目盛を対数で表示...
-
EXCELでX軸が時間のグラフを作...
-
Excelのグラフで同じ数値軸を左...
-
エクセル2007:折れ線グラフを...
-
excelのグラフ、軸の数値を等間...
-
Excelグラフで数値軸の最小数値...
-
Excelのグラフの縦軸の目盛の値...
-
Excel グラフ 原点修正について
-
Excel のグラフの目盛表示をπ、...
-
エクセル365 グラフの2軸目が...
おすすめ情報