Excelでシート名とグラフのタイトルを自動入力させるマクロ

質問

ファイル構成：
グラフ．xls 内に1～50…　のグラフのシート（1シートに1グラフ）があり、最後2シートが、グラフの元データ、文字入力の元データ、という形です。
元データの連番通りにシート（グラフ）が並んでいます。

プログラム１でシート名変更。プログラム２で同じシートに、同連番のグラフタイトルを自動で入力したいのです。

例：
シート名　　　　　グラフタイトル
１．A1月CM　　　新規・CM・１月・感想
２．A1月　　　　　新規・１月・苦情
３．B1月CM　　　既存・CM・１月・意見

（文字入力）元データ：
連番、項目A、項目B、 項目C、項目D、項目E、＜フィールド名
１　　　新規　　1月 　　　CM　　感想　　　A
２　　　新規　　1月　　　　　 　　苦情　　　A
３　　　既存　　1月　　　　CM　　意見　　　B

プログラム1（シート名変更用）：
元データの「連番．項目E項目B項目C」　という形で、同じbook内にあるグラフのシート名を変えるプログラム
（Excelファイルのシートの左から順に　１、２、３・・・・と自動でシート名変更）

sheet1 → １．A1月CM　
sheet2 → ２．A1月
sheet3 → ３．B1月CM

プログラム2（タイトル入力用）：
同じ元データの　　「項目A・項目C・項目B・項目D」　と間に"・"を入れて繋いで、
できた物を、グラフシートのグラフタイトルとして貼り付ける。

※項目Cは空欄になっている事もある為、その際は空欄後の"・"を入れずに、
項目A・項目B・項目Dとしたいのです。

例：　新規・CM・１月・感想
　　　新規・１月・苦情
　　　既存・CM・１月・意見

関数を使って、貼り付け前の形だけ作ってみましたが、空欄の部分で、「新規・・１月・苦情」となってしまいます。

情報が不足しているようであれば、できる限り追加しますので、おわかりになられる方、どうぞ宜しくお願いします。

回答No.1

papayuka · ベストアンサー

１シートに１グラフとは、グラフシートの事なのか、ワークシートにグラフオブジェクトを置いた状態なのかが解りません。
文脈からシート上のグラフオブジェクトだと仮定してサンプルを書きました。

Sub Test()
Dim i As Integer, r As Range
Dim sName As String, gName As String
On Error Resume Next
For i = 1 To Sheets.Count - 2
　　Set r = Sheets(Sheets.Count).Range("A" & i + 1)
　　sName = r.Value & "．" & r.Offset(0, 5).Value & _
　　　　　　r.Offset(0, 2).Value & r.Offset(0, 3).Value
　　gName = r.Offset(0, 1).Value & "・" & _
　　　　　　r.Offset(0, 3).Value & "・" & _
　　　　　　r.Offset(0, 2).Value & "・" & _
　　　　　　r.Offset(0, 4).Value
　　gName = Application.WorksheetFunction. _
　　　　　　Substitute(gName, "・・", "・")
　　With Sheets(i)
　　　　 .Name = sName
　　　　 .ChartObjects(.Shapes(1).Name).Chart.HasTitle = True
　　　　 .ChartObjects(.Shapes(1).Name).Chart.ChartTitle.Text = gName
　　End With
Next i
End Sub

お礼

詳しい方から見たら、紛らわしい記述ですいませんでした。

グラフシートとグラフオブジェクトを置いた状態の
２つの差がわかっておらず、調べたらお察しの通りグラフオブジェクトを置いた状態でした。

頂いたサンプルを元に本を片手に頑張ってみようと思います。ありがとうございました。