---

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

---

Servus

Alternativ lässt sich bei der Tabelle auch die ganze Zelle ansprechen:

Code:

---

Set MyDrawingText = MyDrawingTable.GetCellObject(1,1)
MyDrawingText.SetFontName 0,  0, "Courier 10 BT"

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo bgrittmann,

das habe ich schon versucht. Bei mir hat das, wie oben beschrieben nicht funktioniert.

Beziehungsweise muss ich gestehen, dass ich eine Tabelle versucht habe zu editieren und es da nicht funktioniert.

Gruß
Diesaster

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

ich meine man muss die TextProperties auch noch updaten. Siehe in der Hilfe (chm Datei) unter DrawingTextProperties.

Aber dennoch gut zu wissen das es noch eine Alternative gibt.

Gruß
Randle

------------------
Wer für nichts steht, fällt für alles!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus

Dann gibt es ja noch eine Alternative:

Code:

---

Set MyDrawingText = MyDrawingTable.GetCellObject(1,1)
MyDrawingText.TextProperties.FontName = "Arial"
MyDrawingText.TextProperties.Update

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP