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
"...Men will still say THIS was our finest hour"
If a tree falls in the woods and no one is there to see it, do all the other trees make fun of it?
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.
"...Men will still say THIS was our finest hour"
If a tree falls in the woods and no one is there to see it, do all the other trees make fun of it?
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.
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!
VB/Office Guru™ (AKA: Gangsta Yoda™ ®)
I dont answer coding questions via PM. Please post a thread in the appropriate forum.
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)
"...Men will still say THIS was our finest hour"
If a tree falls in the woods and no one is there to see it, do all the other trees make fun of it?
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.
VB/Office Guru™ (AKA: Gangsta Yoda™ ®)
I dont answer coding questions via PM. Please post a thread in the appropriate forum.
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.
"...Men will still say THIS was our finest hour"
If a tree falls in the woods and no one is there to see it, do all the other trees make fun of it?
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?
"...Men will still say THIS was our finest hour"
If a tree falls in the woods and no one is there to see it, do all the other trees make fun of it?
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
"...Men will still say THIS was our finest hour"
If a tree falls in the woods and no one is there to see it, do all the other trees make fun of it?
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
VB/Office Guru™ (AKA: Gangsta Yoda™ ®)
I dont answer coding questions via PM. Please post a thread in the appropriate forum.
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?
"...Men will still say THIS was our finest hour"
If a tree falls in the woods and no one is there to see it, do all the other trees make fun of it?
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.
"...Men will still say THIS was our finest hour"
If a tree falls in the woods and no one is there to see it, do all the other trees make fun of it?
Reply With Quote
