Prev: fonts change from saved file
Next: custom animation applied to a11 slides
From: Gary on 13 May 2010 12:45
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


From: Matti Vuori on 13 May 2010 14:29
=?Utf-8?B?R2FyeQ==?= <Gary(a)discussions.microsoft.com> wrote in
news:8A612C17-6D31-4467-A947-ED9D1AF1A2C4(a)microsoft.com:
> 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).
From: Gary on 13 May 2010 15:16
Thank You for your suggestion !!!

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


G




"Matti Vuori" wrote:

> =?Utf-8?B?R2FyeQ==?= <Gary(a)discussions.microsoft.com> wrote in
> news:8A612C17-6D31-4467-A947-ED9D1AF1A2C4(a)microsoft.com:
> > 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).
> .
>
 | 
Pages: 1
Prev: fonts change from saved file
Next: custom animation applied to a11 slides