Seriendrucktexte automatisch skalieren

[koter]

Hallo Ben,

ich habe das mal probiert. Beim direkten Seriendruck ist es mir nicht gelungen. Es ging aber nachträglich mit einem zusammengeführten Dokument (Etiketten):

Das zu bearbeitende Seriendruckfeld habe ich im Objektmanager benannt, damit das Makro es identifizieren kann.



Auf einigen Etiketten war der Text zu lang:



ich habe dann dieses kleine Makro ausgeführt:

Code:

Sub KurztextVerkleinern()
    Dim Seite As Page
    Dim Kurztext As Shape
    ActiveDocument.Unit = cdrMillimeter
    ActiveDocument.ReferencePoint = cdrMiddleLeft
    For Each Seite In ActiveDocument.Pages
        Set Kurztext = Seite.Shapes("Kurztext")
        If Not Kurztext Is Nothing Then
            If Kurztext.SizeWidth > 70 Then
                Kurztext.Stretch 1 / Kurztext.SizeWidth * 70
            End If
        End If
    Next
End Sub

Das Beispiel-Makro verkleinert die Kurztexte, wenn sie breiter als 70mm sind:



Das hat bei allen Etiketten geklappt, allerdings hatte der längste Text nach der Verkleinerung nur noch knapp 7pt.

Gruß

Koter