Create Visio flowchart diagram from Excel Row Data

[muthus80]

Hello,

Need the assistance on the following Excel requirement.

We will need to convert excel Row data into Visio Flowchart using VBA macro.

1. Each row in Excel need to be converted into Rectangle Shape in Visio diagram. At this time fine with only one shape but later based on row data we have to decide the shapes (like decision..etc)at run time. All the shapes need to be connected in the same visio drawing.
2. There is no limit in number of rows in excel and the entire row need to be converted into a single shape.
3. The row data will be in a single column of that row.

Example in Excel 4 rows of data like below:
Row 1: Login as guest user
Row 2: Provide the search creteria
Row 3: View the results.
Row 4: Logout.

The above has to be converted into 4 rectangle shapes and connected as a flowchart.

Please help me to write vba macro on this.

Thanks in advance.

Muthu.

 

[sujanak]

Hi Plhil,

I too have same ind of reqirement.. wth above code getting error the below code .

  AppVisio.ActiveWindow.Page.Shapes.ItemFromID(lShapeID).AddRow 242, 0, 0 'visSectionUser, 0, visTagDefault
    AppVisio.ActiveWindow.Page.Shapes.ItemFromID(lShapeID).CellsSRC(242, 3, 0).RowNameU = "TextHeight" 'visSectionUser, 3, visUserValue
    AppVisio.ActiveWindow.Page.Shapes.ItemFromID(lShapeID).CellsSRC(242, 3, 0).FormulaU = "TEXTHEIGHT(TheText,width)" 'visSectionUser, 3, visUserValue
    
    'If the text box is taller than the shape height, reduce text font size by .5 pt until it is smaller or font size = 8 pt
    sngTextHeight = AppVisio.ActiveWindow.Page.Shapes.ItemFromID(lShapeID).CellsSRC(242, 3, 0) 'visSectionUser, 3, visUserValue
    Do While sngTextHeight > vShapeheight And sngFontDefaultSize > sngFontMinimumSize
        sngFontDefaultSize = sngFontDefaultSize - 0.5
        sngTextHeight = AppVisio.ActiveWindow.Page.Shapes.ItemFromID(lShapeID).CellsSRC(242, 3, 0)  'visSectionUser, 3, visUserValue
        AppVisio.ActiveWindow.Page.Shapes.ItemFromID(lShapeID).CellsSRC(3, 0, 7).FormulaU = sngFontDefaultSize & " pt"
    Loop
    'AppVisio.ActiveWindow.Close 'Close Shape ShapeSheet