ListBox table

[shark]

Good day
I have a macro to export all objects on the page. Before exporting I would like to display form with list of all shapes, next to the column width/height, the estimated size of the file and empty column for result. How correctly to fill properties of ListBox ? Columns and values.

dim sr as ShapeRange
dim s as Shape
dim cnt&
dim Dimens$, EstSize$, Res$
    Set sr = ActiveSelectionRange
    for cnt = 1 to sr.Count
        set s = sr(cnt)
        Dimens$ = GetWidth_Height(s) '0000x0000mm
        EstSize$ = Get_EstimatedSize(s, 300, cCMYK) '0000Mb
        Res$ = ""

        'fill fields of ListBox
        ... Dimens$, EstSize$, Res$

    next cnt

[runflacruiser]

Hi.
It would be a wide list but you can just add it to the list:

myForm.myListBox.AddItem "Dimension: " & Dimens & ", Est. Size: " & EstSize & ", Res: " & Res

-John

[shark]

Hi.
Thank you. I thought that it necessary to fill each column separately.
And whether the data in each row are separated by a delimiter ? And how i can get the value from, say, 3rd row, 2nd column ?
I've never used before ListBox with multiple columns

[runflacruiser]

Hi.
You can put the shapes static id at the end of your list box string and access the shape with the vba.mid function. I'm assuming you are only trying the access the shape it references.
Or use the list box index.

Also see this post which might have some similar useful info: dynamic form buttons
-John