Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen

[destiny]

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:

[koter]

Hallo Destiny,
willkommen im Forum!

...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

[destiny]

Hi Koter,

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

1000Dank

[destiny]

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

[norre]

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

[destiny]

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

[destiny]

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?

[koter]

Hallo Destiny, Hallo Norre

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!

[destiny]

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?

[koter]

Hallo Destiny,

...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