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