wie kann ich in einer PowerPoint-Präsentation - beim Mauskontakt mit einem Element- temporär eingebettete Fotos einblenden.
Vielen Dank im voraus!
Mit freundlichen Grüßen
Walter
wie kann ich in einer PowerPoint-Präsentation - beim Mauskontakt mit einem Element- temporär eingebettete Fotos einblenden.
Vielen Dank im voraus!
Mit freundlichen Grüßen
Walter
was meinst du mit "temporär eingebettete Fotos" ?
Sind die fest eingebettet oder verknüpft mit existierenden Dateien oder werden sie zur Laufzeit erst eingefügt?
Gruss Rainer
ersteinmal vielen Dank für die vielen Tipps, die ich bereits von Dir erhalten habe!!!
Jetzt zu meiner aktuellen Frage:
Ich möchte ein Organigramm in PowerPoint erstellen und beim Mausekontakt sollen dann die entsprechen Fotos der MitarbeiterInnen eingeblendet werden. Sinnvoll wäre sicherlich das die Fotos innerhalb der Präsentation bereits vorhanden sind, also keine externe Verknüpfung.
Gruß
Walter
Vielen Dank für Deine Unterstützung.
ich weiss nicht genau, ob es das unter 2000 auch gibt, denke aber schon.Die Bilder müssen alle am richtigen Platz sein.
Klicke das jeweilige Element an.
Starte den VB-Editor
Gib den Befehl im Debug-Fenster ein:
debug.Print ActiveWindow.Selection.shaperange.Name
Jetzt erscheint im Debug-Fenster der Name des gerade aktiven Bildes.
Jetzt musst du für jedes Bild ein Makro machen das es einblendet:
Sub Show_Pic1()
'Blendet z.B. Bild 1 ein
'"Picture 1" ist der Name der im Debug.Fenster ausgegeben wird
ActiveWindow.Selection.ShapeRange("Picture 1").Visible = msoTrue
End Sub
Markiere das Diagrammteil
Bildschirmpräsentation > Aktionseinstellung >> Mouseover
und dort unter "Makro" das Makro auswählen das dein Bild einblendet.
Eins "Mouseover" Ereignis muss dem anderen Bereich des Diagramms zugewiesen werden, dass die Bilder wieder ausblendet:
Damit solltest du in der Lage sein, dass ganze nach deinen Bedürfnissen zu steuern.
Wie gesagt:
Arbeit ist das ganze schon :-))
Gruss Rainer
Vielen Dank für die Anregung. Habe das Markro zum Einblenden noch etwas geändert.
ActivePresentation.Slides(5).Shapes("Picture 22").Visible = msoTrue
MFG
Walter