|
▼nn さん:
こんにちは。
>これから書く四角についてはこれで出来ると思いますが
>既に70個ぐらい図形がかかれており、
本来でしたら、0 からやり直す方が良いと思われるのですが…。
Sub シートに配置された四角形を探す()
Dim MyShape As Shape
Dim lngRow As Long
lngRow = 28
For Each MyShape In ActiveSheet.Shapes
If MyShape.Top - (Range("H" & lngRow).Top + 4) >= -0.25 And _
MyShape.Top - (Range("H" & lngRow).Top + 4) <= 0.25 Then
MsgBox "対象の四角形は" & MyShape.Name & "かも"
'MyShape.Delete
Exit For
End If
Next
End Sub
変数:lngRow に格納はセルの列を指定して下さい。
セルの高さを変更していなければ
(うまくいけば)対象の四角形を抽出できると思います。
四角形を貼り付けた際に 0.25 ピクセルのずれが生じる事があったので
実際にうまく行くかどうかはちょっと解りません。
上記のコードで四角形を特定できるようでしたらコメント部分を外して下さい。
|
|