| |
こんにちは。
BOOK1に異なったChartが数枚と
グラフのソースとなるワークシートがあるとします。
このBOOKに入っている「グラフの種類」は、
折れ線、棒グラフ、散布図とします。
折れ線グラフのChartシートの名前には頭に「折れ線」、
棒グラフのChartシートの名前には頭に「棒グラフ」、
散布図グラフのシートの名前には頭に「散布図」
としています。
BOOK2には、グラフを作成するマクロが入っていて、
それを実行するとグラフ作成ができるようになっています。
BOOK１に関して、BOOK2のマクロでグラフを作成すると、
Chartシートが増えていきます。
よって、Chartシート名の後に番号をふろうと思います
（ex.折れ線1、折れ線2・・・・、棒グラフ1、棒グラフ2・・・のように）。
今、Chartsシート名は何かをチェックして番号をふっていくようにしていますが、
新たに番号をふっていこうとすると、
既に番号が振られた同じChartシート名があると、マクロがストップしてしまいます。
'(↓こんなかんじにしています）
Dim i, j As Integer
'既にChart("折れ線")がある場合
j = 0
For i = 1 To ActiveWorkbook.Charts.Count
Charts(i).Select
If Left(Charts(i).Name, 3) = "折れ線" Then
j = j + 1
Charts(i).Name = "折れ線" & j
End If
Next i
'（グラフ作成のマクロは省略）
マクロがストップせずにうまく番号をふっていく方法はありませんか。
ご教授願いたいとおもいます。
|
|
