can we draw shape?

[bhandari]

my intention to draw shape by using cell reference
i like to give shape dimensions,angles which i want to draw triangle rectangle...etc in excel

 

[My Aswer Is This]

Here is a sample:
Not sure what type shape you want.
Will add shape to active cell.

I showed you two different shapes. Remove ' from in front of line of code to get that line of code to work.

If you want another type shape run the macro recorder pick the shape you want and then look at the code and modify this script to suit your needs.

Sub Add_Shape()
Dim Left  As Long
Dim Top As Long
Dim Width As Long
Dim Height As Long
Left = ActiveCell.Left
Top = ActiveCell.Top
Width = Selection.Width
Height = ActiveCell.Height
ActiveSheet.Shapes.AddShape(msoShapeRectangle, Left, Top, Width, Height).Select
'ActiveSheet.Shapes.AddShape(msoShapeIsoscelesTriangle, Left, Top, Width, Height).Select
With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0) 'Set Box color to red. Modify if you want
        .Transparency = 0
        .Weight = 4.5 'Set thickness of Box change thickness if you want
    End With
    
    'Selection.ShapeRange.Fill.Visible = msoFalse
    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 0, 255)
End Sub

 

[bhandari]

can we use edit points for shapes
if i right click on shape,i see "edit point" option to edit the shape
can we do it with macro

 

[My Aswer Is This]

I see what you mean.

From my use of the Macro Recorder it appears those edit points are not recorded.
So I would not know if some how you can write code to make those edit points.
You could make the shape the way you want and then hide or show the shape like this:


Give your shape a new name if you like or use the default name then use a script like this:
This toggles the shape from visible to not visible.

Sub Hide_Shape()
ActiveSheet.Shapes.Range("My_Shape").Visible = Not ActiveSheet.Shapes.Range("My_Shape").Visible
End Sub