エクセルのマクロ実行→オブジェクトがはみでるエラーについて

質問

エクセルでマクロを作り、実行したのですが、データを集計し「2」で集約する部分で「オブジェクトからはみでます」というエラーがでます。原因がわかりません。正しく実行できる方法を教えてください。

Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(3, 4, 5, 6, _
7, 8, 10, 13), Replace:=True, PageBreaks:=False, SummaryBelowData:=False
Range("D2").Select

　　↓この部分でエラーになります。
ActiveSheet.Outline.ShowLevels RowLevels:=2

Range("A2").Select
Selection.Insert Shift:=xlDown
Range("P2:R2").Select
Selection.Insert Shift:=xlDown
Range("B1").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy

回答No.3

pauNed

ぁあ、すみません。もう１つ、非表示オブジェクトの可能性がありました。
問題のシートをActiveSheetにして下記コードを試してみてください。

Sub try()
　　With ActiveSheet.DrawingObjects
　　　　If .Count = 0 Then
　　　　　　MsgBox "nothing"
　　　　Else
　　　　　　.Visible = True
　　　　　　.Select
　　　　End If
　　End With
End Sub

でも結果"nothing"だったら思い当たる事はもうありません。
データ部分のみ新規シートに移し直したほうが手っ取り早いと思います。

回答No.2

pauNed

>その方法は、すでに試し済みでオブジェクトがありませんとでました。
>他に原因があるのでしょうか？
あら、そうでしたか^ ^;
では、コメントはどうでしょう？
『シート上に、コメントやシェイプなどのオブジェクトがあり...』
と書きましたが、同じように[ジャンプ]機能で確認できます。
これも済みでしたら申し訳ないですがちょっとわかりませんm(_ _)m

回答No.1

pauNed

こんにちは。
シート上に、コメントやシェイプなどのオブジェクトがあり、その[オブジェクトの位置関係] が
[セルに合わせて移動やサイズを変更しない] や
[セルに合わせて移動するがサイズ変更はしない] に 設定されていると、
オブジェクトの位置によっては、その現象が発生するようです。

[XL2002] 列の非表示でエラーが発生するケースについて
http://support.microsoft.com/kb/410998/ja

確認方法として。
[ctrl]キーと[g]キーの同時押し、[ジャンプ]機能のウィンドウが開きます。
[セル選択]クリック、[オブジェクト]にチェックして[OK]クリックすると全オブジェクトが選択できます。
後は[tab]キーを押していくと順次フォーカスしていきます。
シートの下のほうに、オブジェクトがあれば、それを優先的に調べてみましょう。
必要ないものなら、削除すれば良いです。

お礼

ご返答ありがとうございました。

その方法は、すでに試し済みでオブジェクトがありませんとでました。
他に原因があるのでしょうか？