VBA～半円の図形を作成しよう～Excel

VBAで半円を描きたい場合はShapes.AddShapeメソッドのオートシェイプの種類に円弧のmsoShapeArcを設定し、Adjustments.Itemプロパティのインデックス番号2を90に設定します。

Shapes.AddShapeメソッドはAddShape(オートシェイプの種類, 左位置, 上位置, 幅, 高さ)になるので位置やサイズを変更したい場合は左位置、上位置、幅、高さで設定できます。

下のコードを実行すると半円が描かれます。

Sub Macro1()

ActiveSheet.Shapes.AddShape(msoShapeArc, 150, 150, 36, 36).Adjustments.Item(2) = 90

End Sub