+- Juergens-Workshops.de Forum (https://forum.juergens-workshops.de)
+-- Forum: Corel Grafik Forum (https://forum.juergens-workshops.de/forumdisplay.php?fid=65)
+--- Forum: Corel Draw (https://forum.juergens-workshops.de/forumdisplay.php?fid=93)
+--- Thema: Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen (/showthread.php?tid=37103)
Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen - destiny - 06.11.2016
Hallo zusammen! Gibt es eine Möglichkeit bei Corel Draw, die Schriftgröße eines Textes bei der Seriendruckausgabe automatisch anpassen zu lassen?
Wenn z. B. in einem bestimmten Feld unterschiedlich lange Namen eingefügt werden sollen. Natürlich könnte man einfach den längsten Text als max. Schriftgröße wählen. Ich suche jedoch eine Lösung, wie sich die Textgröße automatisch reduziert.
Geht das überhaupt?
Vielen Dank vorab :sei_gepriesen:
Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen - koter - 06.11.2016
Hallo Destiny,
willkommen im Forum!
destiny schrieb:...Geht das überhaupt?...
Mit einem Makro könnte das gehen.
Vielleicht kannst Du mit diesem Beitrag etwas anfangen.
Falls Dir das nicht hilft, wäre es gut, Dein Vorhaben genauer zu beschreiben.
Im besten Fall mit Beispieldateien.
Gruß
Koter
Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen - destiny - 06.11.2016
Hi Koter,
vielen Dank für die schnelle Antwort - werde ich gleich mal ausprobieren.
1000Dank
Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen - destiny - 06.11.2016
Hallo noch einmal,
das mit der Makro hat nun geklappt - musste ein bisschen probieren ;-)
Wie Du schon sagstest, Koter, klappt es nur in der zusammengeführten Datei,
nicht direkt bei der Seriendruckausgabe.
Nur kurz zur Erklärung bei meinem Versuch. Hier möchte ich kleine Namensschilder erstellen
und hierfür gerne eine externe Excel-Datei für den Seriendruck einfließen lassen.
Dabei handelt es sich z. B. um eine Liste voller Namen.
Diese sollen natürlich alle Mittig auf dem jeweiligen Schild erscheinen - daher zentriere ich das Textfeld vorher.
Leider wird dieses Textfeld (<Kurztext>) nicht zur Mitte hin geändert, wenn ich die Makro ausführe.
Der Text wird nach rechts hin verkleinert - ist also dann leider außerhalb und nicht mehr zentriert.
Gibt es da noch eine Möglichkeit?
Merci :oops:
destiny
Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen - norre - 06.11.2016
Hallo destiny,
Dr. mak. Koter meldet sich sicher noch.
Nur weil du gerade da bist,
Ich als Makrodummy der bei so was immer mit try and error rumprobiert würde jetzt im Code bei
ActiveDocument.ReferencePoint = cdrMiddleLeft das "left" mal rauslöschen.
Aber wie geschrieben, wenig Ahnung aber viel Gefühl
Gruß
Norre
Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen - destiny - 06.11.2016
Hi Norre,
vielen Dank für den Tipp, probier ich gleich mal
Ja...das mit den Makros war heute mein erstes Mal :erschreck: aber irgendwann fängt ja jeder mal an ;-)
Ich verneige mich vor den Könnern hier :sei_gepriesen:
Ihr seid die Besten
LG
destiny
Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen - destiny - 06.11.2016
Juhuu...Erfolgserlebnis :-)
Rauslöschen ging nicht, dann is der Text ganz weg.
Aber ich hab anstelle Left -> Center gesetzt, jetzt wird der Text zur Mitte hin verkleinert.
Danke für den Tipp
Das bringt mich echt schon weiter -auch wenn es nicht direkt bei der Seriendruckausgabe funktioniert.
Das Highlight wäre jetzt natürlich noch, wenn man die Breite nicht als Zahl eingeben müsste,
sondern sich Corel die Breite über die Breite des eingestellten Etiketts (also der Seitenbreite) holt.
Ginge das denn auch irgendwie?
Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen - koter - 06.11.2016
Hallo Destiny, Hallo Norre
norre schrieb:ActiveDocument.ReferencePoint = cdrMiddleLeft das "left" mal rauslöschen.
Fast richtig! Du musst cdrMiddleLeft gegen cdrCenter tauschen.
Gruß
Koter
Da haben wir fast gleichzeitig geschrieben. Schön, dass es klappt!
Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen - destiny - 06.11.2016
koter schrieb:Hallo Destiny, Hallo Norre
Fast richtig! Du musst cdrMiddleLeft gegen cdrCenter tauschen.
Gruß
Koter
Da haben wir fast gleichzeitig geschrieben. Schön, dass es klappt!
Ich danke Dir
Das Highlight wäre jetzt natürlich noch, wenn man die Breite nicht als Zahl eingeben müsste,
sondern sich Corel die Breite über die Breite des eingestellten Etiketts (also der Seitenbreite) holt.
Ginge das denn auch irgendwie?
Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen - koter - 06.11.2016
Hallo Destiny,
destiny schrieb:...Das Highlight wäre jetzt natürlich noch, wenn man die Breite nicht als Zahl eingeben müsste,
sondern sich Corel die Breite über die Breite des eingestellten Etiketts (also der Seitenbreite) holt
Ginge das denn auch irgendwie?
Ja das ginge auch:
Code:
Sub KurztextVerkleinern2()
Dim Seite As Page
Dim Kurztext As Shape
Dim Breite As Double
Breite = 80 '(%)
ActiveDocument.Unit = cdrMillimeter
ActiveDocument.ReferencePoint = cdrCenter
For Each Seite In ActiveDocument.Pages
Set Kurztext = Seite.Shapes("Kurztext")
If Not Kurztext Is Nothing Then
If Kurztext.SizeWidth > Seite.SizeWidth / 100 * Breite Then
Kurztext.Stretch 1 / Kurztext.SizeWidth * (Seite.SizeWidth / 100 * Breite)
End If
End If
Next
End SubDie Variable „Breite“ gibt an, wie viel Prozent der Seitenbreite benutzt werden soll.
Gruß
Koter