Using Acces To Paste Visio Drawing 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

 

[David C. Holley]

Try posting in the Office Developer or Power Point newsgroup

microsoft.public.powerpoint
microsoft.public.officedev

While the code is technically running within Access, Access is only
automating Power Point and Visio. Think of it as logging into your DVR from
your laptop, if you can't program the DVR, the problem isn't with the laptop
but with the actual DVR.

David