行コピーでエラー

質問

VBA初心者です。（というか、基本あまり使用しません。）

行の追加のロジックを初心者ながら作ったのですが、
保存する際に、エラーが通知されます。
どこが間違っているのでしょうか？
ちなみに、下記エラーは、解像度に関係しているようなのですが
写真やらそういったものは使用してません。

エラー内容：
　図が大きすぎます。入りきらない部分は切り捨てられます。

コード：
Private Sub CommandButton2_Click()
Dim myR As Variant
myR = Application.InputBox("挿入する行数を入れてください")

If IsNumeric(myR) Then
Else
MsgBox "計算できない値です。処理を終了します。"
Exit Sub
End If

For i = 1 To myR
Rows("1:1").Copy ←非表示の１行目をコピー。
Cells(ActiveCell.Row, 1).Select　←カーソル行にコピー。
Selection.Insert Shift:=xlDown　　
Selection.EntireRow.Hidden = False　←再表示する。
Next i

Application.CutCopyMode = False
End Sub

回答No.1

noah7150 · ベストアンサー

テストする限り私のマシンではエラーは起こりません。
隠れた図形等があるのでは？

ステップ実行で進めてActiveSheetウォッチして見てください
Shapesのカウント1以上ではないですか？

ちなみにループじゃなくても同じ事出来ますよ
Private Sub CommandButton2_Click()
Dim myR As String
Dim Row As Long

myR = Application.InputBox("挿入する行数を入れてください")

If IsNumeric(myR) Then
Else
MsgBox "計算できない値です。処理を終了します。"
Exit Sub
End If

Row = ActiveCell.Row
Rows("1:1").Copy '←非表示の1行目をコピー。
Rows(CStr(Row) & ":" & CStr(Row + CLng(myR) - 1)).Insert Shift:=xlDown '←カーソル行にコピー。
Rows(CStr(Row) & ":" & CStr(Row + CLng(myR) - 1)).EntireRow.Hidden = False '←再表示する。

Application.CutCopyMode = False
End Sub

お礼

ありがとうございます。

なんとかわかりました。
条件付書式が、コピー元にあったのですが
条件付書式を外したら可能でした。

また、条件付書式を外さずに、
≫Application.CutCopyMode = False
を省略したらうまくいきました。

ループしない方法、教えていただきありがとうございます。
実は、そうしたかったのですが、やり方がわからなかったのです。
助かりました。