Beiträge: 30
Themen: 11
Danke erhalten: 0 in 0 Posts
Danke gesagt: 4
Registriert seit: 03.09.2012
Hallo Auskenner!
Ich habe mehrmals versucht, den Seitenhintergrund permanent (also zumindest vorübergehend als Standard) auf einen Grauwert zu setzen, weil ich momentan mit Transparenzen arbeite und somit der prüfende "Durchblick" (weiß vs. transparent) gegeben ist.
Über "Extras>Optionen..." oder "Anpassung" > "Dokument>Hintergrund" habe ich dabei die Auswahl "Durchgezogen" markiert und einen CMYK-Wert (20% Schwarz) gewählt und bin dann auf "OK" gegangen - dann auch auf "Extras>Einstellungen als Standard speichern". Soweit alles okay, nur beim Anlegen einer neuen Seite (bzw. neues Dokument) bleibt bislang alles weiß - wie gehabt. (?)
Merkt sich Corel diese Hintergrund-Einstellung nicht? Bzw. was kann ich tun, um die Seitenhintergrund-Farbe (zumindest vorrübergend) als Standard zu speichern?
Vielen Dank im Voraus und freundliche Grüße
Lu
•
Beiträge: 1.417
Themen: 11
Danke erhalten: 264 in 224 Posts
Danke gesagt: 25
Registriert seit: 24.03.2012
02.04.2023, 16:20
(Dieser Beitrag wurde zuletzt bearbeitet: 02.04.2023, 16:22 von koter.
Bearbeitungsgrund: Korrektur
)
Hallo Lu,
erstelle eine Vorlage oder öffne den VBA-Editor (ALT+F11) und
schreibe oder kopiere folgenden Code in GlobalMacros/ThisMacroStorage:
Code:
Private Sub GlobalMacroStorage_DocumentNew(ByVal Doc As Document, ByVal FromTemplate As Boolean, ByVal Template As String, ByVal IncludeGraphics As Boolean)
Dim Aktiv As Boolean
Aktiv = True
If Aktiv Then
With ActiveDocument.MasterPage
.PrintExportBackground = False
.Background = 1
.Color.CMYKAssign 0, 0, 0, 20
End With
End If
End Sub
Wenn Du die VBA-Lösung benutzt, kannst Du sie abschalten indem Du die Variable Aktiv = False setzt oder den Code wieder entfernst.
Soll der Hintergrund gedruckt oder exportiert werden, setze PrintExportBackground = True.
Gruß
Koter
•
Beiträge: 30
Themen: 11
Danke erhalten: 0 in 0 Posts
Danke gesagt: 4
Registriert seit: 03.09.2012
Hallo und vielen Dank, Koter!
Ich hab noch nie mit VBA gearbeitet (null Ahnung!) und musste mich da erst mal hinein finden (wusste z.B. gar nicht, wie man das dann abspeichert.)
Aber es hat funktioniert! - Zumindest für das jeweilige Dokument. Dafür bin ich dir schon mal sehr dankbar!
Öffne ich Corel neu, bleibt alles wie es war: weiß. Muss man jedes Mal diese VBA-Prozedur machen, wenn man Corel (für ein neues/ähnliches Transparenz-Projekt) startet oder gibt es eine Möglichkeit, dies (zumindest vorübergehend) permanent so zu belassen? Oder hab ich was falsch gemacht? *kopfkratz*
Danke im Voraus
und freundliche Grüße
Lu
•
Beiträge: 1.417
Themen: 11
Danke erhalten: 264 in 224 Posts
Danke gesagt: 25
Registriert seit: 24.03.2012
04.04.2023, 23:38
(Dieser Beitrag wurde zuletzt bearbeitet: 04.04.2023, 23:39 von koter.
Bearbeitungsgrund: Korrektur
)
Hallo Lu,
in den Optionen/VBA gibt es das Kontrollkästchen „VBA verzögert laden“:
Falls ein Haken in dem Kästchen ist, nimm ihn raus und probiere es noch einmal.
Vielleicht klappt es dann.
Du solltest überlegen, ob eine Schaltfläche in einer Symbolleiste nicht sinnvoller wäre, um ein Dokument mit Hintergrund anzulegen.
Sonst hat ja jedes neue Dokument diesen grauen Hintergrund.
Gruß
Koter
1 Benutzer bedankt sich bei koter für diesen Beitrag:1 Benutzer bedankt Danke koter für diesen Beitrag
• LuGa
Beiträge: 30
Themen: 11
Danke erhalten: 0 in 0 Posts
Danke gesagt: 4
Registriert seit: 03.09.2012
Hallo Koter!
Ja, das kleine Häkchen war's - Danke!
Ja, das mit der Schaltfläche sagst du so leicht dahin. ;-) Aber es scheint mir langfristig auch sinnvoll zu sein. Ich hab zwar noch keine Ahnung, wie das funktionieren soll... Meinst du nur eine Schaltfläche "Seitenhintergrund (ändern)", also quasi nur eine Abkürzung zum eigentlichen Menü oder kann man direkt eine Schaltfläche: "Mach mir den Hintergrund 20% Grau... bitte!" kreieren?
Danke dir!
Freundliche Grüße
Lu
•
Beiträge: 1.417
Themen: 11
Danke erhalten: 264 in 224 Posts
Danke gesagt: 25
Registriert seit: 24.03.2012
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
(05.04.2023, 08:53)LuGa schrieb: ...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
1 Benutzer bedankt sich bei koter für diesen Beitrag:1 Benutzer bedankt Danke koter für diesen Beitrag
• LuGa
Beiträge: 30
Themen: 11
Danke erhalten: 0 in 0 Posts
Danke gesagt: 4
Registriert seit: 03.09.2012
Danke Koder!
Also, wenn das mit der Schaltfläche ginge, wäre das ja geradezu ein Träumchen!
Beim ersten Versuch, eine Schaltfläche "selbst" zu bauen, bin ich allerdings ergebnislos gescheitert - habe so etwas noch nie gemacht. Ich nutze Corel wirklich "nur" zum Grafik-Erstellen und fühle mich da auch recht fortgeschritten und sicher, aber das hier ist ja eher Informatik als Grafik und damit bin ich offenbar heillos überfordert.
Ich müsste mich da erst tiefer hineinlesen und -arbeiten und probieren, wozu mir momentan aber etwas die Zeit fehlt - interessant und lohnenswert scheint es mir aber allemal zu sein!
Also, wenn es dir nicht zu viel Aufwand ist, wäre eine Step-by-Step-Anleitung für Dummies schon sehr hilfreich (sicher nicht nur für mich!). Aber das möchte ich dir nicht zumuten, du hast mir ja schon sehr geholfen, Koter! Danke nochmal!
Und freundliche Grüße!
Lu
•
Beiträge: 1.417
Themen: 11
Danke erhalten: 264 in 224 Posts
Danke gesagt: 25
Registriert seit: 24.03.2012
Hallo Lu,
Eine Schaltfläche zu erstellen ist nicht besonders aufwändig.
- Im VBA-Editor (ALT+F11) blendest Du den Projekt-Explorer und das Eigenschaftsfenster ein,
falls diese nicht angezeigt werden.
- Du erstellst ein neues Modul (Einfügen/Modul). Das Modul kannst Du im Eigenschaftsfenster umbenennen.
- Du fügst den Code (die Sub) ein und speicherst das neue Modul.
![[Bild: modulgrauhgukfk4.gif]](https://abload.de/img/modulgrauhgukfk4.gif)
Den VBA-Editor kannst Du jetzt schließen.
In CorelDraw unter Extras/Anpassung/Befehle/Makros solltest Du die Sub jetzt finden.
Der Modulname und der Name der Sub werden durch einen Punkt getrennt angezeigt.
Im Beispiel wäre das also „Hintergrund.GrauHG“.
Ziehe die Sub auf eine Symbolleiste Deiner Wahl und schließe den Optionsdialog:
Fertig.
Im Optionsdialog unter „Erscheinungsbild“ kannst Du der Schaltfläche noch ein neues Aussehen verpassen.
Dann wird die Sache aber doch noch aufwändig, der integrierte Icon-Editor ist die Hölle.
Gruß und frohe Ostern
Koter
1 Benutzer bedankt sich bei koter für diesen Beitrag:1 Benutzer bedankt Danke koter für diesen Beitrag
• LuGa
Beiträge: 30
Themen: 11
Danke erhalten: 0 in 0 Posts
Danke gesagt: 4
Registriert seit: 03.09.2012
Vielen Dank für die Mühe, Koter!
Das sieht ja durchaus machbar aus. Bin über Ostern unterwegs und kann deshalb nichts daran machen, aber gleich danach geht's los!
Nochmal schönen Dank und ebenfalls schöne Ostergrüße!
Lu
•