Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Drawing Arcs
Hi Everybody, I am running Excel 2002 and using VB to draw shapes on my
worksheet, but I need to draw arcs by providing the start and finish points and the radius. Is there a way to do this in Excel, or does anyone know of an Add-in that could achieve this? Many thanks in advance. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Drawing Arcs
Dear Praxis Pete:
I recorded a macro in Excel 2003 and I got the following: ActiveSheet.Shapes.AddShape(msoShapeArc, 258#, 68.25, 114#, 89.25).Select Selection.ShapeRange.Adjustments.Item(2) = 144.7255 The first line draws the arc in coordinate (258,62.25), width 114, height 89.25 And then modifies the ending angle to 144.7255 Try recording a macro (use the drawing toolbar to draw the arc in autoshapes) Hope this helps, if it does, please rate this post. G.Morales. "PraxisPete" wrote: Hi Everybody, I am running Excel 2002 and using VB to draw shapes on my worksheet, but I need to draw arcs by providing the start and finish points and the radius. Is there a way to do this in Excel, or does anyone know of an Add-in that could achieve this? Many thanks in advance. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Drawing Arcs
Dear G.Morales
I tried recording a macro and found that i could change the start and end points, and scale the arc but I cannot see how to specify the radius. Thanks for replying. "Mexage" wrote: Dear Praxis Pete: I recorded a macro in Excel 2003 and I got the following: ActiveSheet.Shapes.AddShape(msoShapeArc, 258#, 68.25, 114#, 89.25).Select Selection.ShapeRange.Adjustments.Item(2) = 144.7255 The first line draws the arc in coordinate (258,62.25), width 114, height 89.25 And then modifies the ending angle to 144.7255 Try recording a macro (use the drawing toolbar to draw the arc in autoshapes) Hope this helps, if it does, please rate this post. G.Morales. "PraxisPete" wrote: Hi Everybody, I am running Excel 2002 and using VB to draw shapes on my worksheet, but I need to draw arcs by providing the start and finish points and the radius. Is there a way to do this in Excel, or does anyone know of an Add-in that could achieve this? Many thanks in advance. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Drawing Arcs
You can't specify the radius directly, but you can use the width and height.
You could make a sub such as: sub DrawArc(single x, single y, single r, single start, single finish) ActiveSheet.Shapes.AddShape(msoShapeArc, x, y, r, r).Select Selection.ShapeRange.Adjustments.Item(1) = start Selection.ShapeRange.Adjustments.Item(2) = finish end sub Hope that helps; if it does, please rate this post. "PraxisPete" wrote: Dear G.Morales I tried recording a macro and found that i could change the start and end points, and scale the arc but I cannot see how to specify the radius. Thanks for replying. "Mexage" wrote: Dear Praxis Pete: I recorded a macro in Excel 2003 and I got the following: ActiveSheet.Shapes.AddShape(msoShapeArc, 258#, 68.25, 114#, 89.25).Select Selection.ShapeRange.Adjustments.Item(2) = 144.7255 The first line draws the arc in coordinate (258,62.25), width 114, height 89.25 And then modifies the ending angle to 144.7255 Try recording a macro (use the drawing toolbar to draw the arc in autoshapes) Hope this helps, if it does, please rate this post. G.Morales. "PraxisPete" wrote: Hi Everybody, I am running Excel 2002 and using VB to draw shapes on my worksheet, but I need to draw arcs by providing the start and finish points and the radius. Is there a way to do this in Excel, or does anyone know of an Add-in that could achieve this? Many thanks in advance. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
drawing toolbar | Excel Discussion (Misc queries) | |||
Drawing in Excel | Excel Discussion (Misc queries) | |||
Drawing in Excel | Excel Discussion (Misc queries) | |||
Drawing on userforms | Excel Programming | |||
drawing | Excel Programming |