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