Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen
#1
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:
Zitieren
#2
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
Zitieren
#3
Hi Koter,

vielen Dank für die schnelle Antwort - werde ich gleich mal ausprobieren.

1000Dank xmasdanke
Zitieren
#4
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
Zitieren
#5
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 Smile

Gruß
Norre
Zitieren
#6
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
Zitieren
#7
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?
Zitieren
#8
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!
Zitieren
#9
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?
Zitieren
#10
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 Sub

Die Variable „Breite“ gibt an, wie viel Prozent der Seitenbreite benutzt werden soll.

Gruß

Koter
Zitieren



Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Corel 2019 - Hilfe beim Kauf adelmann-grafen 6 95 24.01.2021, 23:28
Letzter Beitrag: adelmann-grafen
  Corel Graphic Suite 2020 Fido 10 192 22.01.2021, 21:19
Letzter Beitrag: Fido
  Corel Draw Einstellung oder liegt es am Plotter? Maeckes87 1 65 16.01.2021, 00:18
Letzter Beitrag: vektor
  Etiketten anpassen Stefanos10 2 144 18.12.2020, 15:32
Letzter Beitrag: Stefanos10
  Penetrante Werbung für Corel 21 fritzbuser 5 276 01.12.2020, 17:53
Letzter Beitrag: mvm
  Suche neue Corel Version - aber welche? Gwaihir 5 500 29.09.2020, 08:19
Letzter Beitrag: norre
  Corel Draw: Mengentext "beschriften" anorak 3 293 02.09.2020, 15:41
Letzter Beitrag: anorak
  Corel 2018 SE OEM Olaf 16 1.295 06.06.2020, 02:05
Letzter Beitrag: koter
  Corel X7 - Doppelbuchstaben annilina 3 424 23.05.2020, 13:18
Letzter Beitrag: annilina
  Text drehen Karthagos 3 454 15.04.2020, 18:28
Letzter Beitrag: Karthagos