|
▼nn さん:
こんにちは。
>ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
> Range("H28").Left, _
> Range("H28").Top + 4, _
> Int((Range("H28").Width) * 200 / 0.75) * 0.75, _
> Range("H28").Height - 4.5).Select
>
>で書いた四角があります。
四角形を配置する際に名前を管理されてみてはいかがでしょうか。
Sub ShapeAdd()
Dim MyShape As Shape
Dim lngRow As Long
lngRow = 28
Set MyShape = ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
Range("H" & lngRow).Left, _
Range("H" & lngRow).Top + 4, _
Int((Range("H" & lngRow).Width) * 200 / 0.75) * 0.75, _
Range("H" & lngRow).Height - 4.5)
MyShape.Name = "棒" & lngRow
Set MyShape = Nothing
End Sub
名前の管理ができていれば、
Sub ShapeDel()
ActiveSheet.Shapes("棒28").Delete
End Sub
お好きな四角形を削除する事が可能だと思います。
|
|