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"

1 hits

▼

【17531】グラフコピー ヒデアキ 04/9/1(水) 19:28