Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen

[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