[[20070607070556]]　『オブジェクトの削除』（kysj）　ページの最後に飛ぶ

『オブジェクトの削除』（kysj）

    Sub DelObj() 
    'オブジェクトのTopが4-7行めにあれば削除 
    Dim Shp As Shape 
    Dim R As Long

    For Each Shp In ActiveSheet.Shapes 
        R = Shp.TopLeftCell.Row 
        If R >= 4 And R <= 7 Then 
            Shp.Delete 
        End If 
    Next 
End Sub

4から7行にbからc列の条件を加えるとどうなるか教えてください。

 こういうものは参考になりますか？(ROUGE)
'----
Sub test()
    Dim Shp As Shape, txt As String
    With ActiveSheet
        For Each Shp In .Shapes
            If Not Intersect(.Range("B4:C7"), Range(Shp.TopLeftCell, Shp.BottomRightCell)) Is Nothing Then
                txt = "「 " & Shp.Name & " 」は範囲内にありまっせ！"
            Else
                txt = "「 " & Shp.Name & " 」は範囲外ですワ・・・"
            End If
            MsgBox txt
            txt = ""
        Next
    End With
End Sub

コメント返信：

[ 一覧(最新更新順) ]

[[20070607070556]] 『オブジェクトの削除』（kysj） ページの最後に飛ぶ

[[20070607070556]]　『オブジェクトの削除』（kysj）　ページの最後に飛ぶ