Pasting Visio Image Into Power Point Issue

[Gary]

I am using VBA (with MS Access) to copy a Visio file and paste it into power
point. When I do this using Access 2003, Power Point 2003, and Visio 2003
and power point slide has the ability to open the drawing as Visio by double
clicking the drawing. Everything is sharp looking too.

Now when I tried it using MS Access 2007, Power Point 2007, and Visio 2003,
the power point slide has only an image of the drawing and it looks likes its
out of focus too (not sharp looking).

Any suggestions ??? Below is my VBA Code

Thank You,

G

Set AppVisio = CreateObject("Visio.Application")
AppVisio.Application.Documents.Open (VisioFullPath)

AppVisio.Application.ActiveWindow.SelectAll
AppVisio.Application.ActiveWindow.Selection.Copy
AppVisio.Application.AlertResponse = 1

oPres.Slides.Add(oPres.Slides.Count , ppLayoutBlank).Shapes.Paste

AppVisio.Quit
Set AppVisio = Nothing

oPres.Slides(oPres.Slides.Count).Shapes(1).LockAspectRatio = msoTrue

 

[Matti Vuori]

Now when I tried it using MS Access 2007, Power Point 2007, and Visio
2003, the power point slide has only an image of the drawing and it
looks likes its out of focus too (not sharp looking).

Any suggestions ??? Below is my VBA Code

Behavior of the Paste method must have changed. Use PasteAs and select the
Visio-related document object type, whatever that is (I don't have Visio).

 

[Gary]

Thank You for your suggestion !!!

I changed it to a PasteSpecial and it works now !!!


G