excel グラフについて教えてください。
ひとつのsheetにグラフが90個ある状態で、sheetは支店ごとに７つあります。それぞれにデータのsheetとグラフのsheetとなっており、ひとつの支店のグラフ90個を完成させたので、それをコピーしてから、参照するデータを置換して次の支店のグラフをつくりましたが、グラフタイトルが置換できません。90個のうち45個のみタイトルがあり、他の45個のグラフにタイトルはないままにしたいです。
参照データを置換するBVAをサイトから見つけて、初心者の私が何とかグラフ自体はうまくできたのですが、タイトルのあるグラフのみ、一括で置換できるようなBVAを教えていただけないでしょうか。どうぞよろしくお願い申し上げます。
ログインして回答する
ベストアンサー
-
a-kuma3
以下のコードを標準モジュールに貼りつけて、do_change サブルーチンを実行してみてください。
Sub change_graph_title(sheet_name, word, replace_word) Set re = CreateObject("VBScript.RegExp") re.Pattern = word For Each co In Worksheets(sheet_name).ChartObjects Set c = co.Chart If c.HasTitle Then If re.test(c.ChartTitle.Text) Then c.ChartTitle.Text = re.Replace(c.ChartTitle.Text, replace_word) End If End If Next End Sub Sub do_change() Call change_graph_title("Sheet1", "A支店", "B支店") End Sub
以下の部分は、複数のシートがありそうなので、必要に応じて複数作ってください。
Sub do_change() ' ↓をシートの名前分だけ変えて複製する Call change_graph_title("Sheet1", "A支店", "B支店") Call change_graph_title("Sheet2", "A支店", "B支店") Call change_graph_title("Sheet3", "A支店", "B支店") End Sub
-
その他の回答
-
gon_7
質問に何が不足しているのかを教えてくださいまして、誠にありがとうございます。
補足をさせていただきます。
現状の４５個のグラフは、「４月実績（A支店）」「５月実績（B支店）…のようになっており、それぞれに対になっているグラフがあり、これにはタイトルがついていません。参照するデータを置換して９０個のグラフはB支店のものにできたのですが、タイトルがA支店のままなので、４５個のタイトルを「４月実績（B支店）」のように、（A)のところだけ（B)に置換したいと考えております。残りの４５個については
タイトルがないままにしたい、という希望です。支店のsheetが７つあることから、タイトル４５個×７sheet分打ち直さずに、できればありがたい、という状況です。
よろしくお願い申し上げます。
この質問へのコメント
質問の情報
- 登録日時
- 2020-02-29 09:27:40
- 終了日時
- 2020-03-02 09:03:48
- 回答条件
- 1人5回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
昔のファンタジーの本のタイトルが思い出せないので教えてほしいです。 2000年以前。多分1990年代。 日本人…
匿名質問者
-
Javascript HTML5 CSSを使った、アンドロイドアプリを開発する環境を、整えたいのですが、、よろしくご教示…
kojiro_i619
-
「乙女ゲームの破滅フラグしかない悪役令嬢に転生してしまった」というアニメの、ソフィアを好きな男性って…匿名質問者
-
大人の服を作るのに向いてるミシンの機種をご存知ですか？ ベルトホールありのメンズのストレッチパンツを…匿名質問者
2
-
女性限定の質問です。 結婚するならどちらですか？。
knockeye
ひとつのシートにグラフが90個あるのは分かりますが、
- タイトルを変えたい45個のグラフの、タイトルを作るルール
- タイトルをつけたくないグラフは、元々タイトルがついていないのをそのままにしたいのか、何かのルールで消したりしたいのか
期待している回答は、貼り付けると一発で動くコードでしょうから、上記の辺りを提示しないと回答が書きづらいだろうなあ、と。