Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen
#25
Hallo noch einmal,

ich hätte noch ein kleines Anliegen zur bereits erstellten Makro.
Diese funktioniert super - der Text wird durch die Angabe der %-Größe gestaucht.
Leider spring er dann automatisch immer auf die Seitenmitte.
Wenn der Text an der Stelle stehen bleiben soll - also die Y-Achse gleich bleibt,
was müsste ich im Code anpassen? (anstatt Seite.CenterY nehme ich an)


Code:
Sub GrafiktextVerkleinern()
    Dim Seite As Page
    Dim Grafiktext As ShapeRange
    Dim Text As Shape
    Dim Breite As Double, cx As Double, cy As Double
    Breite = 80 '(%)
    ActiveDocument.Unit = cdrMillimeter
    ActiveDocument.ReferencePoint = cdrBottomCenter
    ActiveDocument.BeginCommandGroup "Text verkleinern"
    Optimization = True
    For Each Seite In ActiveDocument.Pages
        Set Grafiktext = Seite.Shapes.FindShapes(Query:="@type='text:artistic'")
        If Not Grafiktext Is Nothing Then
            For Each Text In Grafiktext
                'geschütztes Leerzeichen (Strg+Umschlt+Leertaste) durch Zeilenumbruch ersetzen
                If Text.SizeWidth > Seite.SizeWidth / 100 * Breite Then
                    Text.Text.Story = Replace(Text.Text.Story, Chr(160), vbCrLf)
                    Text.CenterX = Seite.CenterX
                    Text.CenterY = Seite.CenterY
                End If
                'Text stauchen
                If Text.SizeWidth > Seite.SizeWidth / 100 * Breite Then
                    Text.SizeWidth = Seite.SizeWidth / 100 * Breite
                    Text.CenterX = Seite.CenterX
                    Text.CenterY = Seite.CenterY
                End If
            Next
        End If
    Next
    Optimization = False
    ActiveDocument.EndCommandGroup
    ActiveWindow.Refresh
End Sub


Merci vorab

Viele Grüße
Destiny
Zitieren



Nachrichten in diesem Thema
Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen - von destiny - 17.02.2017, 12:30

Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  PDF nach importieren, automatisch verändert sebastian84 4 625 06.04.2025, 21:20
Letzter Beitrag: mvm
  Corel Draw Essentials 2024 - Speichert keine Dateien Xaroh 1 296 02.04.2025, 18:37
Letzter Beitrag: Xaroh
  Verzerren im Corel Draw 2019 Werner7272 1 350 06.03.2025, 20:37
Letzter Beitrag: Piet
  Neuinstallation von Corel DRAW X5 nach einem Crash Bronimus 1 491 08.02.2025, 09:49
Letzter Beitrag: Bronimus
  MAUSZEIGER COREL 19 WIN 11 eon247 0 309 21.01.2025, 13:54
Letzter Beitrag: eon247
  Öffnen von Corel-Dateien leroc 0 413 14.01.2025, 01:22
Letzter Beitrag: leroc
  Corel Graphic Suite 2023 Dietmar 2 585 05.12.2024, 22:28
Letzter Beitrag: Dietmar
  Importierte AI-Datei in Corel Draw wird nicht richtig dargestellt Kurtus 5 1.154 20.11.2024, 11:01
Letzter Beitrag: Kurtus
  Corel Draw Objekt dupliziert mehrfach Berlinerillustrator 1 646 24.09.2024, 10:55
Letzter Beitrag: Berlinerillustrator
  Corel Draw standard 2021 Lorei 8 2.278 16.08.2024, 15:19
Letzter Beitrag: norre