Powerpoint 2003, Bild wechseln

2658
Tom Gullen

Ich habe ein Bild in Powerpoint 2003. Wie kann ich das Bild ändern, ohne es löschen und erneut hinzufügen zu müssen?

Ich muss alle Animationen speichern und es wird ungefähr 5 Stunden dauern, sie wieder hinzuzufügen, aber nur 20 Minuten, wenn ich die Bilder ändere.

Oder wenn es trotzdem einen benutzerdefinierten Animationssatz auf ein anderes Bild kopieren soll, wäre das auch ein Ass

1

2 Antworten auf die Frage

1
mjrider

I belive this still works in pp03... you should be able to right click and click change picture...this is the easy est way (works in pp07 and pp10) http://www.screencast.com/t/OTQwM2U2OTMt

Ich habe meine Freunde von Powerpoint gesehen, er hat dieses Menü, aber 2003 habe ich kein Menü. Tom Gullen vor 13 Jahren 0
Dann glaube ich nicht, dass es dann eine Option gibt mjrider vor 13 Jahren 0
1
Jon Fournier

Ich habe etwas Code, den Sie für PPT 2003 verwenden können, da er scheinbar keinen Mechanismus zum Ändern eines Bildes hat, ohne Animationen zu vermasseln. Sie müssen herausfinden, wie Sie das zu verwendende Bild auswählen (ich würde ActiveWindow.Selection.ShapeRange (1) verwenden):

Function UpdateImage_BuildNewFromFile(TheImage As PowerPoint.Shape, ImageFile As String) As Boolean ' Create a new shape and add the image (unlinked) from TheImage, copy attributes and size, position, etc...  UpdateImage_BuildNewFromFile = True On Error Resume Next 'On Error GoTo PROC_ERR  If TheImage Is Nothing Then GoTo PROC_ERR_BELOW  If ImageFile = "" Then GoTo PROC_ERR_BELOW  If Not TypeOf TheImage.Parent Is Slide Then GoTo PROC_ERR_BELOW Dim TheSlide As PowerPoint.Slide Set TheSlide = TheImage.Parent  Dim NewShape As PowerPoint.Shape Set NewShape = TheSlide.Shapes.AddPicture(ImageFile, msoFalse, msoTrue, 100, 100)  With NewShape With .PictureFormat .CropBottom = TheImage.PictureFormat.CropBottom .CropLeft = TheImage.PictureFormat.CropLeft .CropRight = TheImage.PictureFormat.CropRight .CropTop = TheImage.PictureFormat.CropTop .Brightness = TheImage.PictureFormat.Brightness .ColorType = TheImage.PictureFormat.ColorType .Contrast = TheImage.PictureFormat.Contrast .TransparentBackground = TheImage.PictureFormat.TransparentBackground End With .Left = TheImage.Left .Top = TheImage.Top .Width = TheImage.Width .Height = TheImage.Height SetZPosition NewShape, TheImage.ZOrderPosition With .AnimationSettings .AdvanceMode = TheImage.AnimationSettings.AdvanceMode .AdvanceTime = TheImage.AnimationSettings.AdvanceTime .AfterEffect = TheImage.AnimationSettings.AfterEffect .Animate = TheImage.AnimationSettings.Animate .AnimateBackground = TheImage.AnimationSettings.AnimateBackground .AnimateTextInReverse = TheImage.AnimationSettings.AnimateTextInReverse .AnimationOrder = TheImage.AnimationSettings.AnimationOrder .ChartUnitEffect = TheImage.AnimationSettings.ChartUnitEffect .DimColor = TheImage.AnimationSettings.DimColor .EntryEffect = TheImage.AnimationSettings.EntryEffect With .PlaySettings .ActionVerb = TheImage.AnimationSettings.PlaySettings.ActionVerb .HideWhileNotPlaying = TheImage.AnimationSettings.PlaySettings.HideWhileNotPlaying .LoopUntilStopped = TheImage.AnimationSettings.PlaySettings.LoopUntilStopped .PauseAnimation = TheImage.AnimationSettings.PlaySettings.PauseAnimation .PlayOnEntry = TheImage.AnimationSettings.PlaySettings.PlayOnEntry .RewindMovie = TheImage.AnimationSettings.PlaySettings.RewindMovie .StopAfterSlides = TheImage.AnimationSettings.PlaySettings.StopAfterSlides End With .TextLevelEffect = TheImage.AnimationSettings.TextLevelEffect .TextUnitEffect = TheImage.AnimationSettings.TextUnitEffect End With  End With  PROC_EXIT:  If Not TheImage Is Nothing Then TheImage.Delete  On Error GoTo 0 Exit Function  PROC_ERR: MsgBox Err.Description UpdateImage_BuildNewFromFile = False GoTo PROC_EXIT  PROC_ERR_BELOW: UpdateImage_BuildNewFromFile = False GoTo PROC_EXIT  End Function

Verwandte Probleme