Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen

[koter]

Hallo Oswald,

Ist das ähnlich wie im Falle von Destiny in den Griff zu bekommen?

Das sollte mit kleinen Änderungen am Makro gehen:

Code:

Sub GrafiktextVerkleinern()
    Dim Seite As Page
    Dim Grafiktext As ShapeRange
    Dim Text As Shape
    Dim Breite As Double
    Dim Suchtext As String
    
    Breite = 40 '(mm)
    Suchtext = "28. September 2020"
    
    ActiveDocument.Unit = cdrMillimeter
    ActiveDocument.ReferencePoint = cdrCenter
    ActiveDocument.BeginCommandGroup "Text verkleinern"
    Optimization = True
    For Each Seite In ActiveDocument.Pages
        Set Grafiktext = Seite.Shapes.FindShapes(Query:="@type ='text:artistic' and @com.text.story.text.contains('" & Suchtext & "')")
        If Not Grafiktext Is Nothing Then
            For Each Text In Grafiktext
                If Text.SizeWidth > Breite Then
                    Text.Stretch 1 / Text.SizeWidth * Breite
                End If
            Next
        End If
    Next
    Optimization = False
    ActiveDocument.EndCommandGroup
    ActiveWindow.Refresh
End Sub

Die Variablen Breite und Suchtext im Quellcode zu ändern, wäre wohl zu mühselig, falls Du das Makro oft benutzen willst.
Es sollte dann noch eine einfache Benutzerschnittstelle eingebaut werden.

Gruß

Koter