[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『オブジェクトの削除』(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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.