Change of text size during animation

[lws]

While viewing the animation emphasis options, the option I need to use are
grayed out - Change Font Size. I am trying to have a particular word start
out as Size 18 and then add motion to make it move to the lower corner and
decrease in size to a 12 when it reaches corner. Is this possible? Why are
options grayed out?

 

[Glen Millar]

Hi,

First, I tried it here and it works. Although it is a horribly jerky
animation. Are you using normal text? The only way I could grey it out was
to sue Word Art.

--

--
Regards,

Glen Millar
Microsoft PPT MVP
www.powerpointworkbench.com

Australia

Please tell us your PowerPoint version,
whether you are using vba,
whether your dog has fleas, or
anything else relevant.

 

[lws]

I did figure out how to do add the Shrink and Grow with the same timing as
the motion path, and it is jerky. I'm wondering why some of the options are
grayed out, and if they woud work more smoothly.
Thanks for the response.

 

[Glen Millar]

Hi,

Jerky is probably being too kind!

If some options are greyed out, it means they are unavailable due to what si
being animated. For example, Word Art is treated like a graphic and not
text, so some text animations are not available. As for the jerkiness. My
PowerPoint is locked up doing something. But maybe use grow/shrink on the
whole text box? I'll know in about an hour when my program is finished <g>.

--

--
Regards,

Glen Millar
Microsoft PPT MVP
www.powerpointworkbench.com

Australia

Please tell us your PowerPoint version,
whether you are using vba,
whether your dog has fleas, or
anything else relevant.

 

[Echo S]

You won't be able to change the font size of an image. Neither will you be
able to change the font size on WordArt, because PPT doesn't consider it
"regular" text. PPT's looking for regular text to apply that font size
change thing to.

 

[Brian Reilly, MVP]

Glen,
See if this VBA code makes it any less jerky for you. Only hard coded
piece is the shape name. Change that to whatever shape name you
create.

Sub Move_and_Grow()
Dim i As Integer
Dim iSlide As Integer

'Get the current slide being shown
iSlide = SlideShowWindows(1).View.CurrentShowPosition

'Refer to the shape by name since it cannot be selected in
SlideShow View
With ActivePresentation.SlideShowWindow.View.Slide.Shapes("Text
Box 6")
'Set the ending property and loop till that property is False
While .Top < 200
'move the shape
.Left = .Left + 5
.Top = .Top + 5
'change the font size
.TextFrame.TextRange.Font.Size =
..TextFrame.TextRange.Font.Size + 1
'Must refresh the screen by going back to same slide
SlideShowWindows(1).View.GotoSlide iSlide
Wend
End With
End Sub

Brian Reilly, MVP

 

[Glen Millar]

Brian,

Very nice. I've got a new Dell laptop and its screen is crumby. Will do some
investigating. Thanks!

--

--
Regards,

Glen Millar
Microsoft PPT MVP
www.powerpointworkbench.com

Australia

Please tell us your PowerPoint version,
whether you are using vba,
whether your dog has fleas, or
anything else relevant.