- #1
D
Dieter S
Neues Mitglied
Themenersteller
- Dabei seit
- 19.11.2007
- Beiträge
- 1
- Reaktionspunkte
- 0
Hallo miteinander,
ich habe eine Powerpoint-Präsentation mit je 2 Seiten Titelmaster und Folienmaster. Auf der Präsentation soll die Hintergrundfarbe per Knopfdruck umgeschaltet werden können. Ich habe folgende Prozdur hinterlegt.
ActiveWindow.ViewType = ppViewSlideMaster
ActivePresentation.SlideMaster.Shapes(Rectangle 14).Select
With ActiveWindow.Selection.ShapeRange
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.RGB = RGB(226, 226, 50)
.Fill.Transparency = 0#
End With
ActiveWindow.ViewType = ppViewSlideMaster
ActivePresentation.Designs.Item(Bilanz).SlideMaster.Shapes(Rectangle 2).Select
With ActiveWindow.Selection.ShapeRange
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.RGB = RGB(226, 226, 50)
.Fill.Transparency = 0#
End With
Der erste Teil funktioniert - aber der 2. Teil nicht. Der 2. Master heißt Bilanz - aber den kann ich irgendwie nicht anspringen.
Danke für jede Hilfe
Dieter
ich habe eine Powerpoint-Präsentation mit je 2 Seiten Titelmaster und Folienmaster. Auf der Präsentation soll die Hintergrundfarbe per Knopfdruck umgeschaltet werden können. Ich habe folgende Prozdur hinterlegt.
ActiveWindow.ViewType = ppViewSlideMaster
ActivePresentation.SlideMaster.Shapes(Rectangle 14).Select
With ActiveWindow.Selection.ShapeRange
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.RGB = RGB(226, 226, 50)
.Fill.Transparency = 0#
End With
ActiveWindow.ViewType = ppViewSlideMaster
ActivePresentation.Designs.Item(Bilanz).SlideMaster.Shapes(Rectangle 2).Select
With ActiveWindow.Selection.ShapeRange
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.RGB = RGB(226, 226, 50)
.Fill.Transparency = 0#
End With
Der erste Teil funktioniert - aber der 2. Teil nicht. Der 2. Master heißt Bilanz - aber den kann ich irgendwie nicht anspringen.
Danke für jede Hilfe
Dieter