オートシェイプ編-エクセルのＶＢＡ集

---

オートシェイプ編

指定の範囲に線を引くには？

'B2:F2の範囲に横線を引く例です。
Sub オートシェイプで横線を引く()
With Range("B2:F2")
　　　　ActiveSheet.Shapes.AddLine .Left, .Top, .Left + .Width, .Top
End With
End Sub

指定の範囲の周囲を円形で囲むには？

'B2:F2の周囲に楕円形で囲む例です。
Sub 楕円形で囲む()
With Range("B2:F2")
　　　ActiveSheet.Shapes.AddShape msoShapeOval, .Left, .Top, .Width, .Height
End With
End Sub

指定の範囲の周囲を四角形で囲むには？

'B2:F2の周囲に四角形で囲む例です。
Sub 四角形で囲む()
With Range("B2:F2")
　　　ActiveSheet.Shapes.AddShape msoShapeRectangle, .Left, .Top, .Width, .Height
End With
End Sub

円形のオートシェイプのみ削除するには？

'円形のオートシェイプのみ削除する例です。
Sub 円形のみ削除()
Dim C As Shape
For Each C In ActiveSheet.Shapes
　　　If C.AutoShapeType = msoShapeOval Then
　　　　　　C.Delete
　　　End If
Next C
End Sub

ページトップ

---