|
▼えいち さん:
おはようございます。
>ichinose さん 回答ありがとうございます。
>図形はうまく消去できましたが、線や矢印が残ってしまいます。
>どうすればいいでしょうか?
ShapeオブジェクトのTypeプロパティで許容するタイプの枠を広げました。
'=====================================================
Sub del_autoshp(wk As Worksheet, lim As Range)
Dim shp As Shape
Dim rw As Long
On Error Resume Next
For Each shp In wk.Shapes
Select Case shp.Type
Case msoAutoShape, msoLine, msoFreeform, msoGroup
Err.Clear
rw = shp.BottomRightCell.Row
If Err.Number = 0 And rw >= lim.Row Then
shp.Delete
End If
End Select
Next shp
On Error GoTo 0
End Sub
del_autoshpを差し替えて確認してみて下さい。
ShapeオブジェクトのTypeプロパティに関しては、Helpを参照して下さい。
尚、オートフィルタや入力規則のリストのドロップダウンもType=8の
Shapeオブシェクトです。Typeの枠を広げる場合は、注意して下さい。
|
|