Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9630 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【26295】グラフタイトルに現在のシート名を入れる方法 クロ 05/6/30(木) 17:38 質問[未読]
【26298】Re:グラフタイトルに現在のシート名を入れ... だるま 05/6/30(木) 19:41 回答[未読]
【26299】Re:グラフタイトルに現在のシート名を入れ... クロ 05/6/30(木) 19:56 お礼[未読]
【26295】グラフタイトルに現在のシート名を入れる...
質問  クロ  - 05/6/30(木) 17:38 -
引用なし
パスワード
   はじめまして。
ＶＢＡを始めたばかりのクロと申します。
初歩的な質問かもしれないのですがどなたか教えて下さい。

グラフを作成する際に現在のシート名をグラフタイトルに入れたいのですが
上手く出来ません。With文の中にどのように記述をすればよいでしょうか？
記述自体が違っていたらすみません。

Set A = Range("b6:o30")
　With ActiveSheet.ChartObjects.Add(A.Left, A.Top, A.Width, A.Height).Chart
　　.ChartType = xlXYScatterLines
　　.SetSourceData Source:=B
　　.ChartType = xlLineMarkers
　　.HasDataTable = True
　End With
【26298】Re:グラフタイトルに現在のシート名を入...
回答  だるま WEB  - 05/6/30(木) 19:41 -
引用なし
パスワード
   こんな感じでしょうか。^d^

　　.HasTitle = True
　　.ChartTitle.Caption = ActiveSheet.Name
【26299】Re:グラフタイトルに現在のシート名を入...
お礼  クロ  - 05/6/30(木) 19:56 -
引用なし
パスワード
   だるまさん、回答有難うございます。
うまくできました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9630 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free