Multimedia
Zeichnen und Präsentieren, Übung 11,
Office 2013
Ziel: Einfache
Programmierungen im Dienst von Lernprogrammen.
Voraussetzung: Stellen Sie die
Sicherheitsstufe bei Ihrem PowerPoint ein: Datei,
Optionen,
Trust Center,
Einstellungen für das Trust Center,
Makroeinstellungen, Auswählen: alle Makros aktivieren,
und Häkchen setzen bei Zugriff auf das VBA-Projektobjektmodell vertrauen.
Falls Sie gefragt werden,
ob die Makronutzung erlaubt werden soll (Deaktivierung aufheben), erlauben
Sie dies für diesen Inhalt.
Legende: Befehle (fett) und einzusetzende Werte
(kursiv).
1. Schritt: Eingabe-Box anlegen.
- Laden Sie das Beispiel "6_uebung11a.pptm"
(beachten Sie den Dateityp pptm, das bedeutet, Datei enthält ein
Programm, ein Makro). Die Datei enthält drei
Folien:
* Folie 1 zeigt das Ergebnis,
* Folie 2 enthält den Quelltext für
das später benötigte Skript,
* Folie 3 ist leer und steht für Ihre Übung
zur Verfügung.
Wählen Sie Folie 3 aus.
- Lassen Sie sich die Symbolleiste Entwicklertools anzeigen:
Datei, Optionen, Menüband anpassen,
Hauptregisterkarten, Häkchen bei
Entwicklertools setzen, OK.
- Wählen Sie das Element Textfeld (ActiveX-Steuerelement)
unter Steuerelemente aus
(achten Sie auf die Beschriftungen, wenn der Mauszeiger über den
Schaltflächen ist) und legen eines auf der
Folie durch Ziehen an. Hier geschieht später die Eingabe.
- Nun benötigt man einen Steuerknopf, der die Ausführung des
VB-Programmes auslöst. Dazu kann man das Steuerelement Befehlsschaltfläche verwenden. Wählen Sie es in der Symbolleiste an
und legen Sie es durch Ziehen an (Empfehlung: ca. 6-7cm lang und ca. 1cm
breit). Der Befehlsschaltfläche wird zunächst automatisch die
Beschriftung CommandButton1 zugewiesen.
- Ändern Sie die Beschriftung z.B. auf OK oder Fertig!,
indem Sie mit der rechten Maustaste drauf klicken und
Eigenschaftenblatt wählen. Es erscheint das Menü
Eigenschaften.
Die Zeile Caption enthält die Beschriftung. Überschreiben Sie in
dem Menü.
- Nun legt man das Skript an. Es ist "im Rohbau" für Sie schon fertig
auf Folie 2. Markieren Sie den roten Text (bitte NUR den Text im
Textfeld!!!) und kopieren Sie ihn in die Zwischenablage.
- Klicken Sie jetzt doppelt auf die Befehlsschaltfläche in
Folie 3. Es öffnet sich ein neues Fenster mit dem VB-Editor und zwei
vorgegebenen Zeilen. Fügen Sie das Skript aus der Zwischenablage
zwischen diese beiden Zeilen ein. Unter Umständen ist das kopierte
Skript schon automatisch eingefügt.
- Schließen Sie den VB-Editor durch Anklicken des (roten)
Schließen-Kreuzes. Das Skript sollte schon funktionieren. Testen Sie es
im Präsentations-Modus.
2. Schritt: Anpassen des Skriptes an die eigenen Bedürfnisse.
Bevor man ein Skript ändert sollte man wissen, was es überhaupt tut ;-)
- Lesen Sie nun bitte auf Folie 2 den grünen Text genau durch und vergleichen
Sie damit die (roten) VB-Befehle.
- Probieren Sie auf Folie 3 verschiedene Änderungen aus
(Rechtsklick, Eigenschaften, Befehlsschaltfläche einblenden).
3. Schritt: Erweitern auf mehrere Boxen.
- Duplizieren Sie Folie 3. Sie erhalten Folie 4.
- Kopieren Sie (z.B. durch Strg+Ziehen) das Textfeld an eine 2.
Stelle.
- Öffnen Sie den Editor durch Doppelklick auf die Befehlsschaltfläche.
- Markieren Sie im Quelltext die Zeilen von TextBox1.BackColor
bis zum ersten Befehl End If. Kopieren Sie den Bereich in die
Zwischenablage.
- Fügen Sie diesen Absatz nach dem Befehl End If ein.
- Nun müssen einige Bezeichnungen geändert werden: alle Ziffern 1 in
der Kopie sollten auf 2 geändert werden.
- Sie können den zweiten Soll-Wert ändern (oder auch nicht).
- Der Test auf richtig und falsch wird etwas komplizierter: die letzte
If-Abfrage muss nun lauten If CheckTextBox1 And
CheckTextBox2 = True Then
- Testen (im Präsentations-Modus!).
- Spielen.
- Für die Hand des Schülers sollten Sie eine *.pps - Datei erzeugen.
Dazu müssen Sie alle Eingaben zurücksetzen: die Farben der Boxen zurück
auf weiß (re Maustaste auf das Textfeld, Eigenschaften und im sich
öffnenden Fenster in der Zeile BackColor weiß wählen)
sowie die Eingabe durch Löschen des Wertes aus der Zeile Value.
Nun als pps abspeichern.
Zusatzangebot: 4. Schritt. Erweitern auf elegantere
Art.
Wir bieten Ihnen
6_uebung11b.pptm mit einer
eleganteren Lösung für mehr als zwei Eingabefelder an. In dieser Datei finden
Sie auf Folie 1 das Ergebnis und auf Folie 2 das entsprechende Skript mit
Kommentaren. Versuchen Sie zu verstehen, was das Skript leistet und toben
Sie sich aus!
Download Ziel- und Übungsfolien:
6_uebung11a.pptm,
6_uebung11b.pptm
E-Mail:
Walter.Wagner ät uni-bayreuth.de
|
