animating buttons

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode 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