Schriftzug in Grösse abnehmend.?.?

[koter]

Ein dritten Regler mit dem man die lineare Verkleinerung beeinflussen kann...

Hallo Norre,

Die Krümmung entsteht ja, weil die Lettern bei abnehmendem Schriftgrad immer näher zusammenrücken. Je nach Text und Schriftart ist die Krümmung also eine Andere.

Bei Poportionalschriftarten ist dazu noch jeder Buchstabe unterschiedlich breit. Mir jedenfalls, fällt keine Lösung für dieses Problem ein. Ich habe Deinen Vorschlag umgesetzt und ein wenig Experimentiert. Ein gutes Ergebnis erhält man nur mit ein wenig Glück.


Eine Frage habe ich noch:
Wozu kann man diese Art der Textgestaltung eigentlich verwenden? Bei der Spirale aus dem Corel-Forum leuchtet mir das ein, aber sonst? Vielleicht hat ja jemand ein Beispiel (ich bin leider keine Kreativ-Kanone).


Die neue Version des Makros im Anhang.
(Getestet mit X4; hoffentlich klappt es diesmal mit den höheren Versionen!)

Gruß

Koter

Achtung! Diese Version funktioniert nicht richtig, bitte die Version aus dem nächsten Beitrag verwenden!
Ich bitte um Entschuldigung,

Koter

[Hartmut]

Hallo Koter,
entwerder bin ich zu blöd oder es funktioniert unter X5 nicht mehr.
Habe die alten Dateien unter Global Macros gelöscht und die neuen importiert. Bei "Test" geht es mit dem geraden Text, danach geht es bei mir nicht mehr. Weiter kann ich nichts dazu sagen, da ich überhaupt keine Ahnung von Macros habe.
Also Probleme gegenüber gestern. Schade.

[koter]

entwerder bin ich zu blöd oder es funktioniert unter X5 nicht mehr...

Hallo Hartmut,

Du bist nicht blöd, wenn dann bin ich zu blöd, ich habe das Ding ja gebastelt!

Ich habe was geändert, und hoffe es klappt jetzt.

Gruß

Koter

[norre]

Hallo Koter,
mann, ich habe doch geschrieben "an einem langen Winterabend" nicht an einer "heißen Sommernacht" :lol:

Ja aber du hast recht, da die Buchstaben auch schmäler werden ergibt sich dieser Effekt.
Zu den Verwendungsmöglichkeiten, tj am sammelt hat so seine Effekte, wenn man es mal einbauen kann, Spirale ist klar, ich hatte mal vor langen langen Jahren etwas mit der Hülle gemacht, ein Plakat war viel Text, da hatte ich jede Zeile gegenläufig von gross nach klein geschrieben.

Zum Macro "neu" (X5 / X6 64bit),
adjust Text funktioniert
sga Start funktioniert, bis man bei Bogen etwas eingibt

"Datenfeld "BogenText"bereits vorhanden

Debuggen stoppt bei :

Set df = ActiveDocument.DataFields.Add("BogenText", "#")

Nachtrag: wenn man die ganze Zeile rauslöscht funktioniert das auch mit dem Bogen - geil
so ab -+10 ergibt sich ein toller Bogen, suuuper, bin begeistert........................................
Edit: funktionierte nur bis zum Neustart!!!

Einen herzlichen Dank und eine riesige Laola-Welle von mir
http://129.143.230.62/gezeiten/laolawelle.gif.

Interessant: Wenn man den Text an der Spirale ausrichtet, die Kombination aufhebt und erst dann dein Macro anwendet, kommen interessante Texteffekte heraus :lol:
Ist auch nett wenn man einen Textblock hat, Mengentext zuerst umwandeln

[norre]

Bäh, nach dem Neustart funktionierts nicht mehr :-(
war dann doch nichts mit meiner hauruckundweg Methode

Mach dir jetzt aber keinen Kopf, dein Originalmacro funktioniert suuuper - danke

[Hartmut]

Hallo Koter,
norre kann Dir sicher besser weiterhelfen als ich, jedoch hab ich bei X5 wohl die gleichen Probleme wie er.
    Darum hier mal ein Bildchen von meinem Ergebnis.
Der Abschuss kommt in dem Moment, wo ich nach der Eingabe der Zahl bei Bogen Enter drücke.
Das mit der Spirale hab ich auch nicht hinbekommen außer wie bei norre ein total beklopter Effekt. Sicher nicht steuerbar aber lustig. Jedoch sehe ich für diesen "Peitscheneffekt", so sieht der Text dann aus, keine Verwendung.

[norre]

Hallo Koter,
norre kann Dir sicher besser weiterhelfen als ich, jedoch hab ich bei X5 wohl die gleichen Probleme wie er.
Darum hier mal ein Bildchen von meinem Ergebnis.
Der Abschuss kommt in dem Moment, wo ich nach der Eingabe der Zahl bei Bogen Enter drücke.
Das mit der Spirale hab ich auch nicht hinbekommen außer wie bei norre ein total beklopter Effekt. Sicher nicht steuerbar aber lustig. Jedoch sehe ich für diesen "Peitscheneffekt", so sieht der Text dann aus, keine Verwendung.

Hallo Hartmut,
du mußt das Macro auf den normal geschriebenen Text anwenden, und erst dann den Text an Objekt, sprich Spirale ausrichten

[Hartmut]

Ich danke Dir norre,
das ist natürlich für mich viel zu einfach. Ich sah da wieder Baustellen wo keine sind.

Oh man Opa kümmer Dich um Deine Enkelin. Na, wo ich so gerade dran denke, Planschbecken muß ja noch gefüllt werden.

nochmal danke für die "Brille"

[koter]

Hallo,

falls Ihr des testens noch nicht überdrüssig seid:
Ich habe noch mal etwas geändert.
(siehe Anhang)

Hallo Hartmut,
du mußt das Macro auf den normal geschriebenen Text anwenden, und erst dann den Text an Objekt, sprich Spirale ausrichten

Bei X4 geht das direkt am Objekt:



Gruß

Koter

[Hartmut]

Hallo Koter,
Glückwunsch. Einfach nur Super.
Mit X5 gemacht.
   


das geht alles am Oblekt.