Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen
#19
Hallo Koter,

ich habe das jetzt bei X6 ausprobiert - hat problemlos funtkioniert.
Aber durch den Zeichenabstand wird das sehr schnell unbrauchbar.
Was müsste ich an diesem Code ändern, damit nicht die ganze Größe des Textes geändert wird, sondern nur die Breite entsprechend gestaucht?

Zitat:Sub GrafiktextVerkleinern()
Dim Seite As Page
Dim Grafiktext As ShapeRange
Dim Text As Shape
Dim Breite 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
If Text.SizeWidth > Seite.SizeWidth / 100 * Breite Then
Text.Stretch 1 / Text.SizeWidth * (Seite.SizeWidth / 100 * Breite)
End If
Next
End If
Next
Optimization = False
ActiveDocument.EndCommandGroup
ActiveWindow.Refresh
End Sub

Merci vorab :sei_gepriesen:
Zitieren



Nachrichten in diesem Thema
Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen - von destiny - 09.11.2016, 16:33

Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Corel 16/FineCut 8: Kurven werden zu eckig geplottet kalle 1 419 08.10.2025, 12:17
Letzter Beitrag: Boerni
  Corel Draw Bibliothek und Hilfslinien anorak 5 931 21.07.2025, 14:20
Letzter Beitrag: m.ster
  Export für Corel X7 wolfcom 3 727 10.07.2025, 13:17
Letzter Beitrag: m.ster
  Corel Draw X5 WOT 5 1.299 03.07.2025, 11:58
Letzter Beitrag: m.ster
  Exel-Preisliste in Corel verknüpfen J.Eden 1 612 27.06.2025, 10:49
Letzter Beitrag: m.ster
  PDF nach importieren, automatisch verändert sebastian84 4 1.095 06.04.2025, 21:20
Letzter Beitrag: mvm
  Corel Draw Essentials 2024 - Speichert keine Dateien Xaroh 1 624 02.04.2025, 18:37
Letzter Beitrag: Xaroh
  Verzerren im Corel Draw 2019 Werner7272 1 641 06.03.2025, 20:37
Letzter Beitrag: Piet
  Neuinstallation von Corel DRAW X5 nach einem Crash Bronimus 1 885 08.02.2025, 09:49
Letzter Beitrag: Bronimus
  MAUSZEIGER COREL 19 WIN 11 eon247 0 553 21.01.2025, 13:54
Letzter Beitrag: eon247