The “old fashioned menu” add-in is like many others, which mimic the old menu arrangement as best they can, assuming the old features are still available. The “drawing recorder” is just not available in 2007. It has not just been disabled, it was not (yet) written for the new generation of shapes.

I know about an excel add-on to get back the old-fashioned menu ( http://www.ubit.ch/software/ubitmenu-languages/ ), I wonder if also getting back “drawing recorder” would be possibile (maybe it’s just there but disabled, like menu?)

The above tabular column which is the input didnt come properly in the post. I have emailed you the same @ jonxlmvp@peltiertech.com

Table -> the worksheet which has the input in the below format:

Job name triggered by Job triggered job
in colmn A in Colmn D in colmn F

A B
B A C
D
D B E

above is an example input. Here Job A triggers Job B. Job B triggers C and D. D triggers job E. I am trying to create a Job flow diagram using shapes and I am stuck at the second job where B is triggering 2 jobs C and D where it involves to create 2 branches.

Appreciate your help on this Jon!!

Thanks again.

In the modified calling sub (below), I construct a range address that includes the worksheet name, and in the function I determine the range, and use the parent of this range (the worksheet that the range is on) as the locaton of the added shape.

Sub Something()  Dim i As Long  Dim job_name As Variant  Dim triby_job As Variant   Dim trigjobname_array(2 To 5) As Variant  Dim job_address As String  Dim oShape1 As Shape  Dim wsData As Worksheet  Dim wsShapes As Worksheet   Set wsData = Worksheets("Data Sheet")  Set wsShapes = Worksheets("Shapes")   For i = 2 To 5    job_address = "'" & wsShapes.Name & "'!B" & 3 + (i - 2) * 3 & ":D" & 5 + (i - 2) * 3    job_name = wsData.Range("A" & i).Value    triby_job = wsData.Range("D" & i).Value    trigjobname_array(i) = wsData.Range("F" & i).Value    Set oShape1 = AddShapeToRange(msoShapeFlowchartAlternateProcess, job_address)  NextEnd Sub Private Function AddShapeToRange(ShapeType As MsoAutoShapeType, _    sAddress As String) As Shape  With Range(sAddress)    Set AddShapeToRange = .Parent.Shapes.AddShape(ShapeType, .Left, .Top, .Width, .Height)  End WithEnd Function

Set oShape1 = AddShapeToRange(msoShapeFlowchartProcess, “B3:D5″)
AddFormattedTextToShape oShape1, “Job 1″

Set oShape2 = AddShapeToRange(msoShapeFlowchartAlternateProcess, “B9:D11″)
AddFormattedTextToShape oShape2, “Job 2″

Set oShape3 = AddShapeToRange(msoShapeFlowchartAlternateProcess, “B16:D18″)
AddFormattedTextToShape oShape3, “Job 3″

The problem here is we are hardcoding the number of shapes we want which is 3 here and hence the range like B3:D5, B9:D11,B16:D18.

What I am trying to do is put this in a For loop and repeat it n number of times. So obviously I cannot hard code the ranges and want to give something dynamic.

For i = 2 To 5
job_name = Range(“A” & i).Value
triby_job = Range(“D” & i).Value
trigjobname_array(i) = Cells(i, “F”).Value
Set oShape1 = AddShapeToRange(msoShapeFlowchartAlternateProcess, “B3:D5″)
AddFormattedTextToShape oShape1, Range(“A” & i).Value
Next
End Sub
Private Function AddShapeToRange(ShapeType As MsoAutoShapeType, _
sAddress As String) As Shape
With Flow.Range(sAddress)
Set AddShapeToRange = Flow.Shapes.AddShape(ShapeType, .Left, .Top, .Width, .Height)
End With
End Function

I am getting error at line “With Flow.Range(sAddress)”.
Run time error 91 object variable or with block not set.

Can you please suggest something so that the set shape statement can be executed in a loop?

You can send any address to this function.