Inserting Visio Drawing into Word Doc through VB

[kldps]

I have a Visual Basic program which uses Word automation to send database data to form fields in a Word template which is then printed. This part works fine. I now need to insert a linked Visio diagram into the word document using OLE and resize it to a certain size to fit into the template. The filename of the visio diagram is dynamic. This is the code I'm trying to use to do this- I am getting an Error 4198- Command Failed (love those descriptive error messages!) strVisioPath is a variant variable containing the path and file name of the visio file. I have tried it with the shapes and inlineshapes objects.

objWordDoc.InlineShapes.AddOLEObject Filename:=strVisioPath, linktofile:=True, DisplayAsIcon:=False, Left:=25, Top:=50, Width:=100, Height:=100

Any suggestions would be greatly appreciated! Thanks.

 

[RobBroekhuis]

Contrary to Word VBA help, you may need to include the ClassType parameter (even though you already include the filename):

ClassType:="Visio.Drawing.6"

At least, that's what works for me, and that's what the macro recorder produces for this operation when done manually. If it still doesn't work, try temporarily removing the size parameters to make sure it's not the resizing that is failing.

Rob

 

[kldps]

Thanks for the info! I did use the ClassType parameter but I also had to do a couple of other things. I had to set a Range object to a bookmark (named "Visio&quot in my document and then use the Anchor parameter and point that to the range object. I also changed it back to a Shapes object. The code that worked was:

Set myRange = objWordDoc.Bookmarks("Visio").Range

objWordDoc.Shapes.AddOLEObject ClassType:="Visio.Drawing.6", Filename:=strVisioPath, LinkToFile:=True, DisplayAsIcon:=False, Left:=100, Height:=225, Width:=350, Anchor:=myRange

Thanks again for the help.