how to creat userinputs freeform shape

[riz4u]

Dear all i want to create a free from or polygon shapes by cell inputs.as the values enters it create shape as per cell measurments in inches or cm .i did it by hiding/showing pics.but i want to draw a true shape as per given values to see effect.please view excel sheet for understanding

[StephenR]

Cross post

http://www.ozgrid.com/forum/showthread.php?t=199502

[libra.8]

try this it will make any shape

Private Sub Worksheet_Change(ByVal Target As Range)
Dim nLeft As Double, nTop As Double, i As Long
Dim shp As Shape, ShapeName As String, selRange As Range
Dim nTopWidth As Double, nBottomWidth As Double, nLeftHeight As Double, nRightHeight As Double
Set selRange = Selection
ShapeName = "freeform" & Target.Row
If Target.Column <= 5 And Target.Row() > 1 Then
For Each shp In ActiveSheet.Shapes
If shp.Name = ShapeName Then shp.Delete
Next shp
For i = 1 To Target.Row - 1
nTop = nTop + Cells(i, 1).RowHeight
Next i
nTop = nTop + 21
nLeft = 300
nLeftHeight = Range("C" & Target.Row)
nRightHeight = Range("D" & Target.Row)
nTopWidth = Range("A" & Target.Row)
nBottomWidth = Range("B" & Target.Row)
Target.RowHeight = nLeftHeight + 21
With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, nLeft, nTop)
.AddNodes msoSegmentLine, msoEditingAuto, nLeft, nTop + nLeftHeight
.AddNodes msoSegmentLine, msoEditingAuto, nBottomWidth + nLeft, nTop + nLeftHeight
.AddNodes msoSegmentLine, msoEditingAuto, nBottomWidth + nLeft, nTop + nLeftHeight - nRightHeight
.AddNodes msoSegmentLine, msoEditingAuto, nLeft + nTopWidth, nTop
.AddNodes msoSegmentLine, msoEditingAuto, nLeft, nTop
.ConvertToShape.Select
Selection.Name = "freeform" & Target.Row
End With
End If
selRange.Select
End Sub

[Kaper]

Glad to see that you try to help, but pleae note that:

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

[libra.8]

ok boss,next time will take care

[riz4u]

thanks,you are right it creats,triangle,rectangle,poly