Argthtjtr

Long story short, I am writing a program that copies a series of Visio drawings and pastes each of them onto a PowerPoint slide for a client. This is very simple to do manually (Copy entire drawing in Visio, navigate to PowerPoint, paste special, -> Microsoft Visio Drawing Object) but I cannot find a way to automate this.

Windows Metafile and Enhanced Metafile are not acceptable because the moment you ungroup the image for purposes of editing, the pretty Visio formatting falls apart.

Normally I'd attempt to record a macro in PowerPoint and paste the image to see the code it produces, but PowerPoint no longer has the capability to record macros. I tried the same in Excel, but that line of code

ActiveSheet.PasteSpecial Format:="Microsoft Visio Document", Link:=False, DisplayAsIcon:=False

does not appear to be adaptable to my case due to differences in the PowerPoint PasteSpecial function and the Excel PasteSpecial function.

Here is the relevant code snippet I am working with.

' Select all and copy each Visio page

pg.CreateSelection(visSelTypeAll).Copy



' Paste special to each ppt slide, size and position properly

pptApp.ActiveWindow.View.GotoSlide (i)

pptApp.ActiveWindow.View.PasteSpecial DataType:=ppPasteOLEObject, Link:=False, DisplayAsIcon:=False

I've tried every DataType that appears to be available to that paste function, but I presume there must be another way to do it.

Please let me know if there is any additional information that may be relevant. I'm fairly new to this kind of programming.
Thanks in advance!

After some time, this appears to be my best answer:

' Select all and copy each Visio page

pg.CreateSelection(visSelTypeAll).Copy



' Paste special to each ppt slide, size and position properly

pptApp.ActiveWindow.View.GotoSlide (i)

pptApp.CommandBars.ExecuteMso "PasteSpecialDialog"

SendKeys "{ENTER}", True

This uses CommandBars.ExecuteMso to manually activate the paste special dialog and sends an Enter key press to select the first option.

Now I'm dealing with a "there isn't enough memory to perform the operation" error for my more complicated Visio drawings. But that's a different problem entirely :)