Visio and VB6

r u on a large network?

No, small one with PDC, BDC, T Server, File Server, and
about a dozen workstations.

oh well man i donno i'm gonna try and work this out a little bit more and if tomorrow by noon i haven't made progress then i think i need to find some other way to get the picture into Visio(the bosses are getting impatient). are you putting that code in a VB6 form? or in the vba window in Visio?

Code is in a VB form. What about automating the retrieval of the
image to the temp dir and then automate Visio "manually" to
import the images? Kinda like doing a FindWindow,
FindWindowEx, and SendMessage. Send the key sequence to
import the image?

i'm not sure i understand what you are talking about, i have never used that method. maybe you could show me an example?

i was able to draw a rectangle in visio via the VB application! so i can draw things, i just have to figure out why i can't open a picture.

I GOT IT! i got it! but it only works with jpeg files right now i have to work with it some more so that i can get any type of file in there. thanx for all the help so far man. i've included it zipped up so you can look @ if you want to.

forgot the project

something is up with the attatchments here and i can't zip the project up. if you want to see code let me know.

disregard the last post

Dubya007, the zip is corrupted or ??? It says it not a valid archive
and it has now files in it, but its 449kbs. Can you rezip and
repost? So glad to hear that its partially working for you!

Or just post the code thats concerned.

Thanks.

here you go

i donno if that last one worked either. not sure what is up with winzip here so here is the code that is concerned.

VB Code:

Dim shape1 As Visio.Shape
 
    Debug.Print FName
    Set VisioApplication = New Visio.Application
    Set VisioDocument = VisioApplication.Documents.Open("H:\SAMDrawing\SAMDraw\Test.vsd")
    VisioApplication.Visible = True
    Set VisioPage = VisioDocument.Pages.Item(1)
    'Change to reflect the path to a image on your system
    Set shape1 = VisioPage.Import(FName)
    'shape1.CenterDrawing
    Kill (FName)
    Debug.Print "Killed " & FName

Looks like the same code? As long as its working.

:)

yeah there are some diffferences in there but it works. (there is a God). i was also able to make it to where you can import more than one picture. i need to find out how to position them on the page now.