acOLEPase Changes Sizing After 1st???

[Gary]

I am using vba in Access and PowerPoint.

I have loop for 10, and I noticed the first acOLEPaste paste my OLEObject in
Full size from left to right border of the power point. After the first one,
they are not full size any longer and it still pasted the ole object in a
smaller scale.

A sample of my code is:

Forms![GenPPT]![OLEFile].Action = acOLECopy
oPres.PageSetup.SlideHeight = (8.5 * 1440) / 20
oPres.Slides.Add(oPres.Slides.Count + 1,
ppLayoutBlank).Shapes.Paste

oLeft = (0.05 * 1440) / 20
oTop = (0.1 * 1440) / 20
oWidth = (1# * 1440) / 20
oHeight = (0.6979 * 1440) / 20
With
oPres.Slides.Item(oPres.Slides.Count).Shapes.AddLabel(msoTextOrientationHorizontal, oLeft, oTop, oWidth, oHeight).TextFrame.TextRange
.Text = IIf(IsNull(T![Personnel]) = True, "", T![Personnel])
With .Font
.Name = "Arial"
.Size = 40
.Bold = msoTrue
End With
End With


The funny thing is the fact only the 1st is full sized and the remainder are
smaller.

Could it be the clip board memory getting full after the first copy and
paste??? I know the clip board is no reset if you are doing things back to
back???

Any help is deeply apreciated.

I am getting very close in complete this program and I could sure use the
help.


Gary