Seite 1 von 4 123 ... LetzteLetzte
Ergebnis 1 bis 10 von 37

Thema: Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen

  1. #1
    Neuer Benutzer Junior Member
    Registriert seit
    05.11.2016
    Beiträge
    22

    Standard Corel Draw X6/X7 Seriendruckausgabe - Text automatisch anpassen

    Hallo zusammen! Gibt es eine Möglichkeit bei Corel Draw, die Schriftgröße eines Textes bei der Seriendruckausgabe automatisch anpassen zu lassen?

    Wenn z. B. in einem bestimmten Feld unterschiedlich lange Namen eingefügt werden sollen. Natürlich könnte man einfach den längsten Text als max. Schriftgröße wählen. Ich suche jedoch eine Lösung, wie sich die Textgröße automatisch reduziert.
    Geht das überhaupt?

    Vielen Dank vorab

  2. #2
    Erfahrener Benutzer Profi Member
    Registriert seit
    24.03.2012
    Beiträge
    806

    Standard

    Hallo Destiny,
    willkommen im Forum!

    Zitat Zitat von destiny Beitrag anzeigen
    ...Geht das überhaupt?...
    Mit einem Makro könnte das gehen.
    Vielleicht kannst Du mit diesem Beitrag etwas anfangen.

    Falls Dir das nicht hilft, wäre es gut, Dein Vorhaben genauer zu beschreiben.
    Im besten Fall mit Beispieldateien.

    Gruß

    Koter
    Geändert von koter (06.11.2016 um 15:32 Uhr)
    W7pro|Corel X4/X7(64 Bit)

  3. #3
    Neuer Benutzer Junior Member
    Registriert seit
    05.11.2016
    Beiträge
    22

    Standard

    Hi Koter,

    vielen Dank für die schnelle Antwort - werde ich gleich mal ausprobieren.

    1000Dank

  4. #4
    Neuer Benutzer Junior Member
    Registriert seit
    05.11.2016
    Beiträge
    22

    Standard

    Hallo noch einmal,

    das mit der Makro hat nun geklappt - musste ein bisschen probieren
    Wie Du schon sagstest, Koter, klappt es nur in der zusammengeführten Datei,
    nicht direkt bei der Seriendruckausgabe.

    Nur kurz zur Erklärung bei meinem Versuch. Hier möchte ich kleine Namensschilder erstellen
    und hierfür gerne eine externe Excel-Datei für den Seriendruck einfließen lassen.
    Dabei handelt es sich z. B. um eine Liste voller Namen.
    Diese sollen natürlich alle Mittig auf dem jeweiligen Schild erscheinen - daher zentriere ich das Textfeld vorher.


    Leider wird dieses Textfeld (<Kurztext>) nicht zur Mitte hin geändert, wenn ich die Makro ausführe.
    Der Text wird nach rechts hin verkleinert - ist also dann leider außerhalb und nicht mehr zentriert.
    Gibt es da noch eine Möglichkeit?

    Merci
    destiny
    Geändert von destiny (06.11.2016 um 18:14 Uhr)

  5. #5
    Erfahrener Benutzer Profi Member
    Registriert seit
    14.12.2011
    Ort
    Bavaria
    Beiträge
    3.897

    Standard

    Hallo destiny,

    Dr. mak. Koter meldet sich sicher noch.

    Nur weil du gerade da bist,
    Ich als Makrodummy der bei so was immer mit try and error rumprobiert würde jetzt im Code bei
    ActiveDocument.ReferencePoint = cdrMiddleLeft das "left" mal rauslöschen.
    Aber wie geschrieben, wenig Ahnung aber viel Gefühl

    Gruß
    Norre
    Benachrichtigung bei neuen Antworten, schau --> HIER

    Alle Angaben ohne Gewähr
    .
    Win7 64bit & Win8.1 - Corel Suite X6.4 (32bit) mit X6.4Hotfix1 - ein paar alte Corel Draw und Photopaint Versionen schwirren auch noch rum

  6. #6
    Neuer Benutzer Junior Member
    Registriert seit
    05.11.2016
    Beiträge
    22

    Standard

    Hi Norre,

    vielen Dank für den Tipp, probier ich gleich mal
    Ja...das mit den Makros war heute mein erstes Mal aber irgendwann fängt ja jeder mal an
    Ich verneige mich vor den Könnern hier

    Ihr seid die Besten

    LG
    destiny

  7. #7
    Neuer Benutzer Junior Member
    Registriert seit
    05.11.2016
    Beiträge
    22

    Standard

    Juhuu...Erfolgserlebnis :-)
    Rauslöschen ging nicht, dann is der Text ganz weg.
    Aber ich hab anstelle Left -> Center gesetzt, jetzt wird der Text zur Mitte hin verkleinert.

    Danke für den Tipp

    Das bringt mich echt schon weiter -auch wenn es nicht direkt bei der Seriendruckausgabe funktioniert.
    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?
    Geändert von destiny (06.11.2016 um 20:16 Uhr)

  8. #8
    Erfahrener Benutzer Profi Member
    Registriert seit
    24.03.2012
    Beiträge
    806

    Standard

    Hallo Destiny, Hallo Norre

    Zitat Zitat von norre Beitrag anzeigen
    ActiveDocument.ReferencePoint = cdrMiddleLeft das "left" mal rauslöschen.
    Fast richtig! Du musst cdrMiddleLeft gegen cdrCenter tauschen.

    Gruß

    Koter

    Da haben wir fast gleichzeitig geschrieben. Schön, dass es klappt!
    Geändert von koter (06.11.2016 um 20:01 Uhr) Grund: Gleichzeitigkeit
    W7pro|Corel X4/X7(64 Bit)

  9. #9
    Neuer Benutzer Junior Member
    Registriert seit
    05.11.2016
    Beiträge
    22

    Rotes Gesicht

    Zitat Zitat von koter Beitrag anzeigen
    Hallo Destiny, Hallo Norre



    Fast richtig! Du musst cdrMiddleLeft gegen cdrCenter tauschen.

    Gruß

    Koter

    Da haben wir fast gleichzeitig geschrieben. Schön, dass es klappt!
    Ich danke Dir

    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?

  10. #10
    Erfahrener Benutzer Profi Member
    Registriert seit
    24.03.2012
    Beiträge
    806

    Standard

    Hallo Destiny,

    Zitat Zitat von destiny Beitrag anzeigen
    ...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
    W7pro|Corel X4/X7(64 Bit)

Ähnliche Themen

  1. Corel Draw X5 Kontur / Text
    Von Reserl im Forum Corel Draw
    Antworten: 18
    Letzter Beitrag: 22.09.2014, 13:58
  2. Antworten: 10
    Letzter Beitrag: 21.09.2012, 21:27
  3. Antworten: 3
    Letzter Beitrag: 08.12.2011, 14:59
  4. Farben von Photo Paint auf Corel Draw anpassen?
    Von Southgate im Forum Corel Draw
    Antworten: 9
    Letzter Beitrag: 07.03.2010, 11:07
  5. Corel Draw Text
    Von kes-art im Forum Corel Draw
    Antworten: 0
    Letzter Beitrag: 28.02.2008, 13:52

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •