Visio Table

i've tried a search and didn't find any results. i need to know if the following is possible.
i need to make a table in Visio using VB6. i have looked under "datagrid" and "Table" i can't seem to find what i am looking for. any help on this would be greatly appriciated

See I knew there would be another issue. Jk.

Let me take a look and see what I can come up with. The OLE
Excel thing didn't work out?

LOL yeah. any way this is where i am as of now, i can get an excel spreadsheet to open up and put some random numbers in there and then paste them into the Visio document but it doesn't really work how i want it to. i talked to my boss and she said that the table will sometimes have two rows not just one. so i have been looking for a way to make a table in Visio.

What is the expected end result? Just a grid with values programmatically
entered in?

Resolved!
I figured out how to link an Excel workbook into Visio. If you
double click on it it will bring up the Excel Workbook. You can
even have the Excel macros enabled or not. Hope it is how you
need it to be. Heres my code from all of our posts.

http://www.vbforums.com/attachment.p...postid=1799227

VB Code:

Option Explicit
'Add reference to MS Visio xx.x Object Library
Dim vsO As Visio.Application
Dim vsD As Visio.Document
Dim vsP As Visio.Page
 
Dim shp1Obj As Visio.Shape
Dim shpGrid1 As Visio.Shape
 
Private Sub cmdRun_Click()
    
    Set vsO = New Visio.Application
    Set vsD = vsO.Documents.Open("D:\Development\VB_Visio\VB.vst")
    vsO.Visible = True
    Set vsP = vsD.Pages.Item(1)
    Set shp1Obj = vsP.Import("D:\Development\work03.gif")
    
    'Show the grid if its a drawing
    If vsO.Application.ActiveWindow.Type = visDrawing Then
        vsO.Application.ActiveWindow.ShowGrid = True
    Else
        'Tell the user why you're not showing the grid.
        MsgBox "Current window is not a drawing window.", vbOKOnly
    End If
    
    'Stretch image
    shp1Obj.Cells("Width") = 2 'Unit is Inches
    shp1Obj.Cells("Height") = 2.5
    
    'Set coordinates
    shp1Obj.Cells("PinX") = 1
    shp1Obj.Cells("PinY") = 1
    
    'Link Excel workbook
    Set shpGrid1 = vsP.InsertFromFile("D:\Development\VB_Visio\Round Selected Region.xls", visInsertLink)
    shpGrid1.Cells("PinX") = 3
    shpGrid1.Cells("PinY") = 3
 
End Sub

VB/Outlook Guru!

ok looks good. yesterday i was copying and pasting through code and that wasn't working so well for me. that would mean that the spread sheet is already filled out correct? so if i have to fill the spread sheet out then i could do it through code first then do the

VB Code:

Set shpGrid1 = vsP.InsertFromFile("D:\Development\VB_Visio\Round Selected Region.xls", visInsertLink)

i have a question though, i need to find a way to only select the text that is in the cells. i don't want the empty cells to be added.

Yes, have the spreadsheet filled out first.

Well, it looks like Visio takes only the populated cell range and
displays that. So if there are empty cells then, like in my picture
attachment earlier, they will be displayed.

Dont forget that if you double-click on the inserted spreadsheet,
it will bring up that workbook.

Another solution would be to draw lines to create your own grid.
Then drop text in the approximate cell areas. May be hard
though. It would also have to be grouped so if it is moved by the
user it will move all the grid and its contents.

lookup the Page.DrawLine method to draw lines in case you want
to go that direction.

I will be out of the office for the most part of the day, client site.
Should be back after 2 pst.

Later and good luck.

right, well as far as the page.drawline wouldn't it be easier to draw the lines in the Visio first then save it so that when the file is opened the lines are already drawn then some how grab the values and put them into the right boxes.(this would be based solely upon position). that is just a thought. 2pm Pst. that would be 6pm my time i think. i'll try and check back around that time.

ok here is the thing now. we have decided that i will just build the table via rectangles and fill in the values by drawing a rectangle and making the text for that rectangle be the value of that is supposed to go in there. so my question is now this. i have heard you can name the shapes in visio, so if i name the rectangles that are already there is it possible to access those shapes from VB?

i just heard about the quake man, how close where you?

I am not that close. Its near San Jose and I am in LA. About 400 miles
apart. It was a 6.0

Yes, you can name shapes from vb and it would be accessing
them similar to the ways we have been.

VB Code:

shp1Obj.Name = "Test"

good to hear, never been in a quake but it sounds freaky. been in tornados, blizzards, hail storms, wild fires, and floods never a quake tho.

if i make a shape in Visio first called "Shape1" could i access that shape from VB somehow? that way i could just access the predefined shapes and then just change the text by

VB Code:

Shape.Text="Name " & VariableData

Thanks, I have been in a few 5.5s and 6.0s. Not too fun and over
quick, but I dont think I would want to be in a tornado. Reports
say that some people felt it in our area.

Here is how to loop through the shapes collection for a particular
page, changing the name and text of each shape. This fits in to
my procedure from the previous examples.

VB Code:

Dim i As Integer
    
    For i = 1 To vsP.Shapes.Count
        vsP.Shapes.Item(i).Name = "Test-" & i
        vsP.Shapes.Item(i).Text = "TestText-" & i
    Next

yeah i was in a tornado in OK, the sky was orange. and i happened to be in a mini-van at the time.

this will loop through all of the predrawn shapes.

VB Code:

Dim i As Integer
    
    For i = 1 To vsP.Shapes.Count
        vsP.Shapes.Item(i).Name = "Test-" & i
        vsP.Shapes.Item(i).Text = "TestText-" & i
    Next

that will name all the shapes, so wouldn't it grab the pre-drawn lines as well?

that did grab all of the shapes. i right clicked on a shape and did the following
Format > Special... > Name:
i changed the name from "Sheet22" to "Test 1" is it possible to access "Test 1" by call the shape named "Test 1" some how?

Instead of using the ordinal position, use the name in its place.

VB Code:

vsP.Shapes.Item("Item 1").??? 'What ever property you want to access

many thanx. i believe that i know all that i need to know about this for now. but i'd like to thank you for all the of the help that you have given. if i lived in LA i'd buy you a dinner man. thanx again.

No prob.

I just got back from a client's site and Im ready to eat a good dinner!

Later