Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


72998 / 76738 ←次へ | 前へ→

【8223】Re:Charts Sheet名にうまく番号をふるには?
回答  Kein  - 03/10/4(土) 16:00 -

引用なし
パスワード
   >折れ線、棒グラフ、散布図とします。
>折れ線グラフのChartシートの名前には頭に「折れ線」、
>棒グラフのChartシートの名前には頭に「棒グラフ」、
>散布図グラフのシートの名前には頭に「散布図」
>としています。
>BOOK2には、グラフを作成するマクロが入っていて、
>それを実行するとグラフ作成ができるようになっています。
>BOOK1に関して、BOOK2のマクロでグラフを作成すると、

これはやっぱり、グラフを作成するところのコードを提示してもらわないと
Book1にチャートを追加するタイミングとか、そのシート名を変更する
タイミングが把握できないので、回答が難しいと思います。
要は、Charts.Add までに Book1 のグラフシートをループし、
同種類の名前がいくつあるかをカウントしておき、新規グラフを追加
した後、ActiveChart.Name = "折れ線" & i + 1 などと命名すれば
いいのですが、ループで取得するところは

Dim Ch As Chart
Dim i As Integer

For Each Ch In Workbooks("Book1.xls").Charts
  If Left(Ch.Name, 3) = "折れ線" Then
   i = i + 1
  End If
Next

などとするだけですが。

0 hits

【8222】Charts Sheet名にうまく番号をふるには? とろろこんぶ 03/10/4(土) 12:21 質問
【8223】Re:Charts Sheet名にうまく番号をふるには? Kein 03/10/4(土) 16:00 回答
【8237】Re:Charts Sheet名にうまく番号をふるには? とろろこんぶ 03/10/5(日) 21:16 お礼

72998 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free