|
▼Lee さん:
segさんとおなじく、コピペしてやってみましたが正常終了。
ただ、こちらのテストでは元のシートそのものが軽いものですので
重いグラフがあるシートだと障害になるのかもですね。
で、気休めでしょうが、Leeさんのコードから不要なものを
カットしてみました。
それと、For Nextの中で45かと聞いておられますが?
聞かなくても45回実行したら抜けます。
さらに45で抜けると結果は44枚のコピー。もし44枚のコピーが
正しければ 1 To 44 としてください。
Sub ステップ1()
'
' グラフシートコピー Macro
'
Dim mySHeet As Worksheet
Dim myCnt As Long
Set mySHeet = ActiveWorkbook.Worksheets("1")
For myCnt = 1 To 45
mySHeet.Copy Before:=mySHeet
If myCnt Mod 10 = 0 Then
ActiveWorkbook.Save
End If
DoEvents
Next myCnt
Set mySHeet = Nothing
End Sub
|
|