|
Abyss さん よろしくお願いします。
今グラフのコピーのマクロは以下の様になっています。
(VBA初心者のため、マクロの自動記録にて作成しています)
"グラフ1"、グラフ2"・・・はグラフの範囲に範囲名を
付けたものです
Application.ScreenUpdating = False
Sheets("Sheet1").Select
Application.Goto Reference:="グラフ1"
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Sheets("Sheet2").Select
Range("B2").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Application.Goto Reference:="グラフ2"
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Sheets("Sheet2").Select
Range("G2").Select
ActiveSheet.Paste
・
・
・ グラフの数繰り返し
・
Application.ScreenUpdating = True
以前からよく Application.ScreenUpdating を利用して画面の更新停止
を行っていたものですから、今回も可能と思っていました。
よろしくお願いします。
|
|