animating buttons

ccordner · #1 09-02-2014, 04:07 AM

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 · #2 09-02-2014, 09:15 AM

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

Code:

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 · #3 09-02-2014, 01:28 PM

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 · #4 09-02-2014, 03:07 PM

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

ccordner · #5 09-02-2014, 03:08 PM

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

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

JohnWilson · #6 09-02-2014, 03:31 PM

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

joannhickerson · #7 09-14-2014, 12:26 AM

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Animating objects on one slide independent of others	Fed	PowerPoint	1	08-16-2013 08:42 AM
Animating SmartArt	Cosmo	PowerPoint	0	07-13-2012 07:15 AM
Command Buttons	lorenambrose	Word	0	10-06-2011 11:55 AM
Help! I can't get the buttons to work!	Alicia	PowerPoint	0	02-19-2011 01:48 PM
Custom animating a line chart by series and category.	Gahzi	PowerPoint	0	05-19-2009 11:53 AM