Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA Script fuer DropDown ContentControl um Dokument Hintergrund Farbe zu aendern |
22.08.2018 11:59:23 |
WordNoob24 |
|
|
|
22.08.2018 14:53:22 |
Gast93552 |
|
|
|
22.08.2018 15:52:57 |
WordNoob24 |
|
|
|
22.08.2018 16:51:49 |
Gast60852 |
|
|
|
22.08.2018 17:25:08 |
Gast2754 |
|
|
Von:
WordNoob24 |
Datum:
22.08.2018 11:59:23 |
Views:
821 |
Rating:
|
Antwort:
|
Thema:
VBA Script fuer DropDown ContentControl um Dokument Hintergrund Farbe zu aendern |
Ich versuche fuer ein Word Memo Template ein VBA Script zu generieren das es mir mit Hilfe eines Drop-Down ContentControl erlaubt je nach Verwendungszweck des Memos die Farbe/Textur des Dokument-Hintergrunds zu aendern. Das Script steht unten aber steigt mir mit der Meldung Invalid Parameter aus. Ich waere sehr dankbar fuer Hilfestellung.
Ausgangspunkt is ein Drop-Down List Content Control mit Namen "BackgroundColor" und den Werten "Blue" and "Green" je nach Verwendungszweck.
Das fehlerhafte VBA Macro ist wie folgt:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
ActiveDocument.Unprotect
With ActiveDocument
Select Case ActiveDocument.ContentControls("BackgroundColor")
Case "Blue"
ActiveDocument.ActiveWindow.View.DisplayBackground s = True
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(200, 200, 200)
ActiveDocument.Background.Fill.Transparency = 0#
ActiveDocument.Background.Fill.PresetTextured msoTextureParchment
Case "Green"
ActiveDocument.ActiveWindow.View.DisplayBackground s = True
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(100, 100, 100)
ActiveDocument.Background.Fill.Transparency = 0#
ActiveDocument.Background.Fill.PresetTextured msoTextureParchment
Case Else
End Select
ActiveDocument.Protect wdAllowOnlyFormFields, True
End With
End Sub
Was mache ich hier falsch?
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA Script fuer DropDown ContentControl um Dokument Hintergrund Farbe zu aendern |
22.08.2018 11:59:23 |
WordNoob24 |
|
|
|
22.08.2018 14:53:22 |
Gast93552 |
|
|
|
22.08.2018 15:52:57 |
WordNoob24 |
|
|
|
22.08.2018 16:51:49 |
Gast60852 |
|
|
|
22.08.2018 17:25:08 |
Gast2754 |
|
|