中心座標と半径を指定して円弧を描く

Sub Draw_Circle(Center_x, Center_y, R, Im1, Im2)
'================
' 中心座標と半径を指定して　円弧を描きます
' Center_x   : 中心座標　X
' Center_y   : 中心座標　X
' R    	   : 半径
' Im1      : 開始角度
' Im2  	   : 終了角度

Dim Circle_Top_x As Single 　'図形Arc　頂点x
Dim Circle_Top_y As Single 　'図形Arc　頂点y

Circle_Top_x = Center_x
Circle_Top_y = Center_y - R

 ActiveSheet.Shapes.AddShape(msoShapeArc, Circle_Top_x, Circle_Top_y, R, R).Select
 Selection.ShapeRange.Adjustments.Item(1) = Im1 'Start deg
 Selection.ShapeRange.Adjustments.Item(2) = Im2 'End deg 右回り
 Selection.ShapeRange.Line.Weight = wgt
End Sub