WCM Forum - PowerPoint und Makros

WCM Forum (http://www.wcm.at/forum/index.php)

- Programmierung (http://www.wcm.at/forum/forumdisplay.php?f=17)

- - PowerPoint und Makros (http://www.wcm.at/forum/showthread.php?t=167030)

PowerPoint und Makros

Hi Leute,

eine Freundinn von mir will für ihre Volksschulklasse eine Powerpointpräsentation erstellen. Folgendes Problem hat sie jetzt:

Wie kann man das realisieren das ich wenn ich bei einer bestimmten Seite angekommen bin zu einer anderen springt und da eine Grafik verändert?

z.b. von Seite 10 soll zu Seite 2 gesprungen werden und dann auf seite 2 eine grafik verändert werden!

Bitte um hilfe!

Wie verändert werden? Nur die Grösse oder etwas dazu zeichnen oder gar die alte Grafik durch eine neue ersetzen?

Zitat:

Original geschrieben von testi
Wie verändert werden? Nur die Grösse oder etwas dazu zeichnen oder gar die alte Grafik durch eine neue ersetzen?

durch eine andere grafik ersetzten! und wie kann ich auf eine andere seite springen?

Auf der Seite einen CommandButton erstellen und dann:

Code:

Private Sub CommandButton1_Click()

SlideShowWindows(1).View.GotoSlide 2'auf folie 2 springen

End Sub

mfG
Testi

Zitat:

Original geschrieben von testi
Auf der Seite einen CommandButton erstellen und dann:

Code:

Private Sub CommandButton1_Click() SlideShowWindows(1).View.GotoSlide 2'auf folie 2 springen End Sub

mfG
Testi

Danke erst mal, und wie füge ich das ganze in Powerpoint ein, hab leider überhaupt keine Ahnung! Hab mit VBA überhaupt noch nichts gemacht.

Und wie kann ich Grafik verändern?

Zitat:

Original geschrieben von hewlett
Danke erst mal, und wie füge ich das ganze in Powerpoint ein, hab leider überhaupt keine Ahnung! Hab mit VBA überhaupt noch nichts gemacht.

Und wie kann ich Grafik verändern?

Zuerst blendest Du Dir die Steuerelemente-Toolbox ein.(Mit Rechtsklick auf die Menüleiste)
Dann einen CommandButton auf die Folie setzten, von der aus zurückgesprungen werden soll und wie auch immer Beschriften.
(Rechtsklick auf den Button->Eigenschaften->Caption)

Auf der Folie auf der die Grafik geänder werden soll:
Aus der Steuerelemente-Toolbox zwei Bilder einfügen->jeweils unter den Eigenschaften den Bild-Elementen ein Bild zuweisen.
(Rechtsklick auf den Button->Eigenschaften->Picture)
Die Bilder in der Grösse und Form anpassen.

Das Bild-Element "Image1" wird als erster angezeigt und "Image2" wenn zurückgesprungen wird.
Deswegen bei "Image2" Rechtsklick auf den Button->Eigenschaften->Visible auf false setzten.

Dann Rechtsklick auf den CommandButton und auf Code anzeigen klicken.
Und jetzt:

Code:

Private Sub CommandButton1_Click()

Slide2.Image1.Visible = False

Slide2.Image2.Visible = True

SlideShowWindows(1).View.GotoSlide 2 'auf folie 2 springen

End Sub

Ich hoffe es hilft ein wenig.;)

mfG
Testi

@testi

danke erstmal, hat mir geholfen!