☰

Makro zum Umschalten der Seitenfarbe im „Dunkelmodus“, einige Probleme?

tag-icon • tag-icon microsoft-word vba macros colors
Makro zum Umschalten der Seitenfarbe im „Dunkelmodus“, einige Probleme?

Ich habe versucht, ein VBA-Makro zu erstellen, um die Seitenfarbe zu ändern und sie an den Hintergrund des Dunkelmodus in Microsoft Office anzupassen.

Mein Problem ist, dass wenn ich das Makro auf einem neuen Dokument ausführe, es die Seitenfarbe zunächst nicht ändert.Design>Seitenfarbezeigt mir, dass das Makro tatsächlich die gewünschte Farbe umgeschaltet hat, aber die Seite selbst ändert sich nicht entsprechend. Ich muss es manuell drücken, damit es tatsächlich „bestätigt“. Dann kann ich die Farbe über mein Makro problemlos um-/aufheben. Irgendwelche Ideen, was schief läuft?

Hier ist mein Code:

Sub DarkMode()
'
' DarkMode Macro
If ActiveDocument.Background.Fill.Visible = msoFalse Then
ActiveDocument.Background.Fill.ForeColor.ObjectThemeColor = _
    wdThemeColorText1
ActiveDocument.Background.Fill.ForeColor.TintAndShade = 0.15
ActiveDocument.Background.Fill.Visible = msoTrue
ActiveDocument.Background.Fill.Solid
Else
ActiveDocument.Background.Fill.Visible = msoFalse
End If

End Sub

Antwort1

Sie müssen der Ansicht das Anzeigen von Hintergründen erlauben, indem Sie ActiveDocument.ActiveWindow.View.DisplayBackgrounds = Trueden Code ergänzen.

Der vollständige Code würde folgendermaßen aussehen:

 Sub DarkModeNewPage()

 ActiveDocument.ActiveWindow.View.DisplayBackgrounds = True
 If ActiveDocument.Background.Fill.Visible = msoFalse Then
    ActiveDocument.Background.Fill.ForeColor.ObjectThemeColor = _
       wdThemeColorText1
    ActiveDocument.Background.Fill.ForeColor.TintAndShade = 0.15
    ActiveDocument.Background.Fill.Visible = msoTrue
    ActiveDocument.Background.Fill.Solid
 Else
    ActiveDocument.Background.Fill.Visible = msoFalse
 End If


 End Sub

verwandte Informationen