|
|
#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
|
|
|
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 |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode