![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
お世話になります。
初めて投稿いたします。
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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルグラフの一括設定。
Excel(エクセル)
-
たくさん作った同じ設定のグラフを一括して変更したい
Excel(エクセル)
-
Excel 複数のグラフの軸の書式設定を一気に変更するには?
Excel(エクセル)
-
-
4
エクセルの散布図のX軸に文字を表示したいのですが、どうしたらよいのでしょうか?
Excel(エクセル)
-
5
EXCELでコピーしたグラフのデータ範囲変更について
Excel(エクセル)
-
6
別のシートから値を取得するとき
Visual Basic(VBA)
-
7
エクセルのシートをコピーしてもグラフは古い所を参照
財務・会計・経理
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
グラフの横・縦項目が全部表示...
-
エクセルの散布図のX軸に文字...
-
エクセルグラフ メモリを方眼...
-
エクセルの対数グラフで細かい...
-
エクセル2010 グラフの軸の最...
-
エクセルの散布図グラフで、横...
-
Excelグラフで数値軸の最小数値...
-
エクセルで原点(o,o)を通る折れ...
-
Excelで横軸の目盛を対数で表示...
-
Excelグラフ下にタイトルを入れ...
-
excelのグラフ、軸の数値を等間...
-
エクセル グラフの削除してし...
-
EXCEL グラフの横軸の表示方法...
-
エクセル365 グラフの2軸目が...
-
エクセル、パワーポイントで作...
-
複合グラフの第2軸の目盛設定...
-
散布図と折線の複合グラフが、...
-
Excelで0を基点にして、目盛を...
-
Excelでのボード線図の描き方
-
Excelの散布図でラベルに固有名...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの散布図のX軸に文字...
-
グラフの横・縦項目が全部表示...
-
エクセルの対数グラフで細かい...
-
エクセルの散布図グラフで、横...
-
エクセル グラフの削除してし...
-
エクセルグラフ メモリを方眼...
-
エクセル2010 グラフの軸の最...
-
Excel のグラフの目盛表示をπ、...
-
Excelで横軸の目盛を対数で表示...
-
エクセルでグラフを作成する際...
-
Excel グラフ 原点修正について
-
エクセル 主軸と第2軸を入れ...
-
エクセル2007:折れ線グラフを...
-
4万件程度の散布図を作成したい...
-
Excelグラフで数値軸の最小数値...
-
excelのグラフ、軸の数値を等間...
-
《エクセル2000》一箇所だけ、...
-
EXCELでX軸が時間のグラフを作...
-
第2軸を追加すると折れ線グラフ...
-
Excelのグラフで同じ数値軸を左...
おすすめ情報