I am using this to automatically shrink text in a PPT show after creating a
text box. The problem is that sometimes it works, sometimes it doesn't and I
cannot figure out what is causing the intermittancy.

With oProjDesc
With TextFrame
....
End With
With .TextFrame2
.AutoSize = msoAutoSizeTextToFitShape
End With
End With

Sorry, this newsgroup is for questions about Access, the database product
that's part of Office Professional.

You'd be best off reposting your question to a newsgroup related to
PowerPoint.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"MeSteve" <(E-Mail Removed)> wrote in message
news:F5EF5E79-0539-4150-AA13-(E-Mail Removed)...
>I am using this to automatically shrink text in a PPT show after creating a
> text box. The problem is that sometimes it works, sometimes it doesn't
> and I
> cannot figure out what is causing the intermittancy.
>
> With oProjDesc
> With TextFrame
> ...
> End With
> With .TextFrame2
> .AutoSize = msoAutoSizeTextToFitShape
> End With
> End With

OK, but I am executing this in Access.

"Douglas J. Steele" wrote:

> Sorry, this newsgroup is for questions about Access, the database product
> that's part of Office Professional.
>
> You'd be best off reposting your question to a newsgroup related to
> PowerPoint.
>
> --
> Doug Steele, Microsoft Access MVP
> http://I.Am/DougSteele
> (no e-mails, please!)
>
>
> "MeSteve" <(E-Mail Removed)> wrote in message
> news:F5EF5E79-0539-4150-AA13-(E-Mail Removed)...
> >I am using this to automatically shrink text in a PPT show after creating a
> > text box. The problem is that sometimes it works, sometimes it doesn't
> > and I
> > cannot figure out what is causing the intermittancy.
> >
> > With oProjDesc
> > With TextFrame
> > ...
> > End With
> > With .TextFrame2
> > .AutoSize = msoAutoSizeTextToFitShape
> > End With
> > End With
>
>
>