How to Draw an Arc which is 1/4 of a circle?

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.

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.

True - I had orignally assigned the shape to an object variable, which
then requires the parens. Thanks for the correction.

In article <#xwjchvqFHA.248@TK2MSFTNGP14.phx.gbl>,
"Mike Fogleman" <mikefogleman@insightbb.com> wrote:

> In Excel 2000 I had to lose the parentheses for it to work.
>
> ActiveSheet.Shapes.AddShape msoShapeArc, 100#, 100#, 75#, 75#