Inserting OLE Object Into Power Power scaling Issue

[Gary]

I am saving Visio files to a temp location and using the following
AddOLEObject. It seems that I can only have a 1:1 scaling ratio. The source
and destination must be the same size. I would like to have a Visio drawing
a different size ratio than the power point. Can this be ??? How??

This is a copy of my code:

Set oPPT = New PowerPoint.Application
Set oPres = oPPT.Presentations.Add(True)

Const ppLayoutBlank = 12
Const ppSaveAsPresentation = 1

xWidth = (11 * 1440) / 20
yHeight = (8.5 * 1440) / 20

oPres.PageSetup.SlideWidth = xWidth
oPres.PageSetup.SlideHeight = yHeight

Do Until T.EOF
'For i = 1 To 2

Me![OLEFile].Action = acOLEActivate

Set AppVisio = GetObject(, "visio.application")
Set DocObj = AppVisio.ActiveDocument
DocObj.SaveAs "c:\access 2006\MyDrawing.vsd"

AppVisio.Quit
Set AppVisio = Nothing

oPres.Slides.Add(oPres.Slides.Count + 1,
ppLayoutBlank).Shapes.AddOLEObject Left:=0, Top:=0, Width:=xWidth,
Height:=yHeight, FileName:="c:\access 2006\MyDrawing.vsd", Link:=msoFalse
DoCmd.RunCommand acCmdRecordsGoToNext
T.MoveNext
Loop
'Next i

oPres.SaveAs "c:\access 2006\MyDrawing.ppt", ppSaveAsPresentation, True



I need help to all be to scaling in a different page size ratio source into
power point.

Thank You,

G