Schriftzug in Grösse abnehmend.?.?

[tivaro]

Hallo

Kann mir jemand sagen, wie ich ein Schriftzug `schräg` gestalten kann. Ich hoffe ihr versteht, was ich meine. Mehrere Wörter, erster Buchstabe zB 5cm, letzter 2cm, konstant abnehmend.......

Dankeschön für Inputs

Roger

[koter]

Hallo Roger,

Wenn ich Dich richtig verstanden habe, willst du den Text nicht verzerren, sondern Die Schriftgröße jedes Buchstaben ändern. Hülle oder Perspektive fallen dann also aus. Man kann die Schriftgröße der Buchstaben von Hand ändern, das ist aber bei längeren Texten sehr mühselig. Deshalb habe ich das per Makro automatisiert. Vielleicht nützt es Dir ja.



User-Form und Modul musst Du unter GlobalMacros einbinden.


Gruß

Koter

[tivaro]

Hoi Koter

Genau was ich suche:daumen::daumen::daumen:

Werde heute Abend gleich mal versuchen, ob ich das hinkriege:oops:

Besten Dank für die Hilfe

[norre]

Hallo Koter,
liege ich da richtig, das funktioniert dann mit import?
Ich bekomme aber nur die bas-Datei importiert, was mache ich denn mit der frx?
Ps. Mein X5 / X6 kennt nur ne frm-Datei. Umbenennen der frx. bringt aber nix

Stimmt mit der Hülle kann man zwar die Höhe richtig einstellen, aber die Breite der Buchstaben bleibt bestehen.

[koter]

Hallo Norre,
Hallo Roger,

Entschuldigung! Ich Döskopp habe die FRM nicht mit ins Archiv gepackt, es konnte also nicht funktionieren.

Richtig Norre, das funktioniert dann mit import.

Hier jetzt die komplette ZIP-Datei im Anhang.

Gruß

Koter

[norre]

Hallo Koter,
unter X5/X6 läufts - fast, der letzte Buchstabe wird nicht mit erfasst.

[koter]

Hallo Norre,

danke für den Test, wenn es deine Zeit zulässt, teste bitte noch mal mit diesem Anhang. (Ich habe ja nur X4)

Gruß

Koter

[norre]

Hallo Koter,
keine Änderung, scheint also wieder mal die Änderungen in X5 und folgende Versionen zu sein :-(
Schaut auch nicht so aus als würde der Text gleichmäßig verkleinert, sondern fällt nach der kleinen Seite schneller ab.


@tivaro, welche Corelversion benützt du, schreibs am besten gleich in deine Signatur (oben rechts-->nützliche Links-->Signatur bearbeiten)

[tivaro]

Könntet ihr Profis mir noch erklären, wie ich das ganze im Corel einbinden/benützen kann? Blick da nicht durch......

Dankeschön

[koter]

Hallo Norre,

Nochmal Danke für deine Mühe.
Vielleicht kann man ein Leerzeichen als letztes Zeichen verwenden um das Problem zu umgehen.

Vielleicht würde es, in den Versionen über X4, auch funktionieren, wenn man in der SUB sga(), in der Zeile ZeichenAnz = ActiveShape.Text.Story.Characters.Count - 1, die - 1 am Ende entfernt. Da kann ich leider nur raten.

Und Du hast Recht, obwohl die Schriftgröße linear abnimmt, sieht es aus, als ob sie nach der kleinen Seite schneller abfällt.
Bei unterschiedlichen Schriftarten wirkt sich der Effekt unterschiedlich aus.
(Ein altgedienter Typograf würde diese Art der Textgestaltung wohl nicht anwenden.)

Gruß

Koter