+- Juergens-Workshops.de Forum (https://forum.juergens-workshops.de)
+-- Forum: Corel Grafik Forum (https://forum.juergens-workshops.de/forumdisplay.php?fid=65)
+--- Forum: Corel Draw (https://forum.juergens-workshops.de/forumdisplay.php?fid=93)
+--- Thema: Mengentexte in Grafiktexte umwandeln (/showthread.php?tid=37238)
Mengentexte in Grafiktexte umwandeln - cappy0815 - 10.01.2017
Hallo zusammen,
ich importiere gelegentlich dfx-files in Corel um sie in einen schöneren Zeichnungsrahmen zu bringen.
Dabei werden Beschriftungen / Texte immer als Mengentext angelegt und die Rahmen der Texte zumeist zu klein dargestellt.
Somit sind die Beschriftungen unbrauchbar.
Nun könnte ich jeden einzelnen Text anwählen und per STRG+F8 in Grafiktext wandeln.
Das ist aber ziemlich aufwendig.
Ich habe versucht ein Makro per Suche - Mengentext - etc zu erstellen, das klappt aber irgendwie nicht.
Kann mir Jemand einen Weg zeigen, wie ich entweder DIREKT als Grafiktext importiere oder alle Mengentexte auf einmal konvertiere!?
Ich nutze CorelDRAW X6 16.4.2.1282
Vielen Dank
Cappy
Mengentexte in Grafiktexte umwandeln - norre - 10.01.2017
Hallo Cappy,
willkommen im Forum
cappy0815 schrieb:........Rahmen der Texte zumeist zu klein dargestellt.unter-->Extras-->Optionen-->Text-->Mengentextrahmen, kannst du auswählen ob der Textrahmen automatisch erweitert wird, vielleicht hilft das ja schon.
Ansonsten geht das sicher mit einem Macro, dazu können dir die Macropezialisten hier im Forum sicher mehr sagen.
Gruß
Norre
Mengentexte in Grafiktexte umwandeln - cappy0815 - 10.01.2017
Hallo Norre,
vielen Dank für den Tipp. Das hatte ich bereits versucht. Leider funktioniert das beim dxf-import leider nicht.
Hier im Forum gibt's bereits einen THREAD (leider zu spät gesehen, sonst hätte ich mich dran gehängt)
http://www.juergens-workshops.de/board/showthread.php?15259-Mengentext-in-Grafiktext-konvertieren
Irgendwie komme ich damit aber auch nicht weiter ... was mache ich mit einer gms-Datei?
Cappy
Mengentexte in Grafiktexte umwandeln - norre - 10.01.2017
Hallo,
neues Problem-->neues Thema ist bei uns schon ok, vor allem weil die altem Macros oft auf neuen Systemen eh nicht laufen.
Aber warte mal ein bisserl bis die Macrospezialisten online sind
Gruß
Norre
Mengentexte in Grafiktexte umwandeln - cappy0815 - 10.01.2017
So ...
inzwischen habe ich mir ein wenig Makro-Wissen zusammen gegoogelt.
Dabei herausgekommen ist dies:
Code:
Sub Macro1()
Set sr = ActivePage.Shapes.FindShapes(Query:="@type = 'text:paragraph'")
For I = 1 To 100
ActiveLayer.Shapes(I).Text.ConvertToArtistic
Next I
End SubGrundsätzlich funktioniert es auch. Allerdings ist 100 als Endwert natürlich viel zu hoch oder zumindest in 99% der Fälle nicht richt.
Ich würde also gerne erstmal zählen, wie viele Grafiktexte ich habe, und dan das Ergebnis I setzen.
Allerdings kann google mir bei Makro-Zählen auch nicht helfen.
Cappy
Mengentexte in Grafiktexte umwandeln - koter - 10.01.2017
Hallo Cappy,
willkommen im Forum!
In Deinem Makro wird die Variable sr mit einem Suchergebnis belegt.
Das Suchergebnis wird aber in der darauf folgenden For-Schleife nicht weiter verarbeitet.
In der Schleife wird stattdessen versucht die ersten hundert Objekte der aktiven Ebene umzuwandeln. Das würde beim ersten Objekt, welches kein Text ist einen Typ-Fehler verursachen.
Die Grundidee stimmt aber! Wenn du die Variable sr mit einer For-Each-Schleife verwendest, werden alle Suchergebnisse verarbeitet und Du musst nicht zählen:
Code:
Sub Macro1()
Dim sr As ShapeRange, s As Shape
Set sr = ActivePage.Shapes.FindShapes(Query:="@type = 'text:paragraph'")
For Each s In sr
s.Text.ConvertToArtistic
Next
End SubGruß
Koter
Mengentexte in Grafiktexte umwandeln - cappy0815 - 11.01.2017
Hallo,
vielen Dank für die Erklärung. Ich glaube, ich habe es sogar verstanden.
Komischerweise kriege ich es jetzt nicht mehr hin, das Makro auf eine Symbolleiste bzw ein Symbol zu legen.
Es kommt keine Fehlermeldung - es wird nur einfach nix angezeigt.
Allerdings muss ich auch zugeben, dass ich die Umwandlung gar nicht mehr brauche, da ich gesehen habe, dass ich im Quell-Programm direkt mit Grafiktext arbeiten kann.
Cappy