In Excel 2000 I had to lose the parentheses for it to work.

ActiveSheet.Shapes.AddShape msoShapeArc, 100#, 100#, 75#, 75#

Mike F

"JE McGimpsey" <jemcgimpsey@mvps.org> wrote in message
news:jemcgimpsey-447A41.17301626082005@msnews.microsoft.com...
> This appears to work for me:
>
> ActiveSheet.Shapes.AddShape(msoShapeArc, 100#, 100#, 75#, 75#)
>
>
>
> In article <1D8822F2-5CD6-4375-A355-652BAC4C9482@microsoft.com>,
> "Johannes" <Johannes@discussions.microsoft.com> wrote:
>
>> Is there a way to draw an arc which is 1/4 of a circle?
>> It looks like Shapes.addcurve only draw bezier curve, but how do I make
>> the
>> curve a 1/4 of a circle?
>>
>> I also tried Shapes.BuildFreeForm().AddNodes(), but I couldn't get it to
>> draw 1/4 of a circle.