Excel VBA質問箱 IV

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

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


63743 / 76732 ←次へ | 前へ→

【17583】Re:グラフコピー
質問  ヒデアキ  - 04/9/2(木) 18:19 -

引用なし
パスワード
   すいません。また質問があります。
初心者なのでマクロをよくわかってません。
よろしくお願いします。

Worksheets("MeasData").Activate      '"MeasData"からグラフをコピーする
ActiveSheet.ChartObjects("グラフ 13").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = False
  
Sheets("HistRead").Select   'コピーしたものを"HistRead"に貼り付ける
Cells(1,1).Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("グラフ 22").Activate
ActiveWindow.Visible = False
  
WorkSheets("HistRead").Activate   

元データを"HistRead"からに変更したいのですがここから先がうまくいきません。元データを変えたいグラフについて名前を指定してあげないといけないようで、困ってます。
               ↓ここを指定しないといけない
ActiveSheet.ChartObjects(???).Activate
ActiveChart.ChartArea.Select
Application.CutCopyMode = False
ActiveChart.SeriesCollection(1).XValues = "=HistRead!R16C3:R25C3"
ActiveChart.SeriesCollection(1).Values = "=HistRead!R16C6:R25C6"
ActiveChart.SeriesCollection(1).Name = "=HistRead!R15C6"
ActiveChart.SeriesCollection(2).XValues = "=HistRead!R16C3:R25C3"
ActiveChart.SeriesCollection(2).Values = "=HistRead!R16C9:R25C9"
ActiveChart.SeriesCollection(2).Name = "=HistRead!R15C9"
ActiveChart.SeriesCollection(3).XValues = "=HistRead!R16C3:R25C3"
ActiveChart.SeriesCollection(3).Values = "=HistRead!R16C12:R25C12"
ActiveChart.SeriesCollection(3).Name = "=HistRead!R15C12"
ActiveChart.SeriesCollection(4).XValues = "=HistRead!R16C3:R25C3"
ActiveChart.SeriesCollection(4).Values = "=HistRead!R16C15:R25C15"
ActiveChart.SeriesCollection(4).Name = "=HistRead!R15C15"
0 hits

【17531】グラフコピー ヒデアキ 04/9/1(水) 19:28 質問
【17536】Re:グラフコピー Kein 04/9/1(水) 20:33 回答
【17546】Re:グラフコピー ヒデアキ 04/9/2(木) 7:42 お礼
【17544】Re:グラフコピー shousuke 04/9/2(木) 1:43 回答
【17547】Re:グラフコピー ヒデアキ 04/9/2(木) 7:43 お礼
【17583】Re:グラフコピー ヒデアキ 04/9/2(木) 18:19 質問
【17590】Re:グラフコピー Kein 04/9/2(木) 23:16 回答
【17598】Re:グラフコピー ヒデアキ 04/9/3(金) 8:39 質問
【17639】Re:グラフコピー Kein 04/9/3(金) 20:13 回答
【17652】Re:グラフコピー ヒデアキ 04/9/4(土) 9:21 質問
【17669】Re:グラフコピー Kein 04/9/4(土) 17:04 回答
【17701】Re:グラフコピー ヒデアキ 04/9/5(日) 20:31 お礼
【17765】Re:グラフコピー ヒデアキ 04/9/7(火) 14:06 質問
【17776】Re:グラフコピー Kein 04/9/7(火) 16:07 回答
【17781】Re:グラフコピー ヒデアキ 04/9/7(火) 17:06 質問
【17784】Re:グラフコピー Kein 04/9/7(火) 18:03 回答
【17794】Re:グラフコピー ヒデアキ 04/9/7(火) 22:25 お礼
【17863】Re:グラフコピー ヒデアキ 04/9/8(水) 22:39 質問
【17865】Re:グラフコピー Kein 04/9/9(木) 1:41 回答
【17903】Re:グラフコピー ヒデアキ 04/9/9(木) 22:17 質問
【17910】Re:グラフコピー Kein 04/9/10(金) 2:16 回答
【17954】Re:グラフコピー ヒデアキ 04/9/10(金) 22:53 お礼
【18251】Re:グラフコピー ヒデアキ 04/9/19(日) 18:05 質問
【18255】Re:グラフコピー Kein 04/9/19(日) 19:41 回答
【18286】Re:グラフコピー ヒデアキ 04/9/20(月) 13:51 質問
【18294】Re:グラフコピー Kein 04/9/20(月) 22:21 回答
【18329】Re:グラフコピー ヒデアキ 04/9/21(火) 16:17 発言
【18333】Re:グラフコピー Kein 04/9/21(火) 16:40 回答
【18429】Re:グラフコピー ヒデアキ 04/9/23(木) 17:49 お礼

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