Geänderter Seitenhintergrund lässt sich nicht dauerhaft speichern

[koter]

Hallo Lu

ich meine eine Schalfläche die ein Makro ausführt.
Man könnte z.B. ein neues Dokument mit grauem Hintergrund erstellen lassen:

Code:

Sub NeuGrauHG()
   Dim D As Document
   Set D = Application.CreateDocument
   With D.MasterPage
       .PrintExportBackground = False
       .Background = 1
       .Color.CMYKAssign 0, 0, 0, 20
   End With
   D.Dirty = False
   ActiveWindow.ActiveView.ToFitPage
End Sub

...oder kann man direkt eine Schaltfläche: "Mach mir den Hintergrund 20% Grau... bitte!" kreieren? 

Das ginge auch. Dann müsste der Code so aussehen:

Code:

Sub GrauHG()
   Dim D As Document
   Dim Neu As Boolean
   Neu = False
   If Application.Documents.Count < 1 Then
       Set D = Application.CreateDocument
       Neu = True
   Else
       Set D = ActiveDocument
   End If
   With D.MasterPage
       .PrintExportBackground = False
       .Background = 1
       .Color.CMYKAssign 0, 0, 0, 20
   End With
   If Neu Then D.Dirty = False
   ActiveWindow.ActiveView.ToFitPage
End Sub

Die letzte Sub würde den Hintergrund des aktiven Dokuments ändern.
Falls kein Dokument geöffnet ist würde ein neues mit grauem Hintergrund erstellt werden.

Falls Du es ausprobieren willst solltest Du ein neues Modul im VBA-Editor anlegen (Einfügen/Modul)
und den Code in das Modul kopieren.

Gruß

Koter