Hallo liebe Community,
hiermit möchte ich für die fragende Nation eine kleine Anleitung zum Thema catFontName für den Befehl SetParameterOnSubString veröffentlichen.
Leider musste ich feststellen, dass es bei diesem Befehl keine richtigen Lösungen im Netz vorhanden sind. Eine Lösung die oft gezeigt wurde, funktioniert bei mir beispielsweise nicht, aus diesem Grund diese kleine Anleitung.
Falls ich jetzt im falschen Forum unterwegs bin, tut es mir leid. Verschiebt das dann bitte entsprechend.
Ich denke, dass sich viele Fragen, wie es möglich ist, in einer Tabelle die Schriftart via Makro anzupassen.
Hier die Lösung:
Wenn Ihr mit dem Befehl
Code:
MyText.SetParameterOnSubString
arbeitet und die CatTextProperty "catFontName" verwendet, so müssen 3 Werte eingegeben warden.
Auszug aus der Automation:
Zitat:
Sub SetParameterOnSubString( CatTextProperty iParam,
long iFirst,
long inbCharacter,
long iVal) Sets a property on a substring of the drawing text.
Parameters:
iParam
The drawing text property
iFirst
The first character to which the property should apply
inbCharacter
The number of characters to which the property should apply
iVal
The value to be applied according to the property
Example:
This example sets all MyText drawing text in bold character.
CatTextProperty iParam = catBold
iFirst = 0
inbCharacter = 0
ival = 1
MyText.SetParameterOnsubString iParam, iFirst, inbCharacter, ival
Soll nun eine andere Schriftart gewählt werden, so funktioniert im Parameter "ival" das Schreiben "SSS1" als Beispielschriftart nicht.
Nachfolgend liste ich die gängigen Schriftarten mit Ihrem ival-Wert auf:
1 = Monospac821 BT
2 = KANJ
3 = SSS1
4 = TRCH
Ich hoffe dieser Beitrag ist dem einen oder anderen nützlich
Gruß
Diesaster
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP