animating buttons

[ccordner]

I have a series of text boxes. When clicked on, I would like each one to grow to fill the slide and then shrink when clicked on again. Is this possible? Perhaps using VBA?

Thanks
Chris

[JohnWilson]

2000 doesn't support trigger animations so your only option is vba.

Do you have any coding skills?

I don't have 2000 so I am not sure it supports this code but you could try this macro

Sub swell(oshp As Shape)
If oshp.Width < ActivePresentation.PageSetup.SlideWidth Then
SaveSetting "SIZE", "SETTING", "LEFT", CStr(oshp.Left)
SaveSetting "SIZE", "SETTING", "TOP", CStr(oshp.Top)
SaveSetting "SIZE", "SETTING", "WIDTH", CStr(oshp.Width)
SaveSetting "SIZE", "SETTING", "HEIGHT", CStr(oshp.Height)
oshp.Width = ActivePresentation.PageSetup.SlideWidth
oshp.Height = ActivePresentation.PageSetup.SlideHeight
oshp.Left = 0
oshp.Top = 0
oshp.TextFrame.TextRange.Font.Size = 4 * oshp.TextFrame.TextRange.Font.Size
Else
oshp.Width = GetSetting("SIZE", "SETTING", "WIDTH", "100")
oshp.Height = GetSetting("SIZE", "SETTING", "HEIGHT", "100")
oshp.Left = GetSetting("SIZE", "SETTING", "LEFT", "0")
oshp.Top = GetSetting("SIZE", "SETTING", "TOP", "0")
oshp.TextFrame.TextRange.Font.Size = oshp.TextFrame.TextRange.Font.Size / 4
End If
End Sub

[ccordner]

Thanks

I do have a fair amount of experience coding in VBA, but primarily for Excel, so I will have a play with that.

I'm using Powerpoint 2007.

Thanks
Chris

[JohnWilson]

It says 2000 in the post header! Should work in 2007.

[ccordner]

So it does! I hadn't noticed that...

I must have signed up for these forums before I got this version. Sorry.

[JohnWilson]

There might be a non code answer in 2007. I'll think about it in the morning.

[joannhickerson]

vba will work in your case, but i dont think you can do this without code.
best casinos in australia