---

Hallo,

ich stehe vor folgendem Problem:

In einer Drawing wird ein Text programmgesteuert erstellt.Ich möchte nun Textgröße und die Farbe ändern.

Folgender Quellcode funktioniert schon prima und erstellt Text und ändert Schriftgröße:

'OBJEKT DrawingTexts:
Dim MyView As DrawingView
Set MyView = MySheet.DrawingViews.ActiveView
Dim MyText As DrawingText
Set MyText = MyView.DrawingTexts.Add("ComplexText", 0., 0.)

'OBJEKT DrawingText:

MyText.SetFontSize 0,  0, 3

Wie aber kann man Einfluss auf die DrawingtTextProperties nehmen die lt. Hilfe unter

DrawingView/DrawingWeldings/DrawingTextRange/DrawingTextProperties

zu finden sind?

Quellcode lt. Hilfe:

'OBJEKT DrawingTextProperties:
redCol  =-16776961 'Encoded RGBA color within long integer (R=255 G=0  B=0  A=255)
MyText.Color = redCol

Wie spricht man in diesem Fall MyText an?

THX

Bernd

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

---

Hallo
Ich habe diesen Fall nicht mit DrawingTextProperties
sondern mit DrawingText.SetParameterOnSubString gelöst zB Farbe ändern:
redCol  =-16776961
MyText.SetParameterOnSubString catColor, 0, 0, redCol

So müsste es klappen
Im Objektkatalog der VBA-IDE findest du die Definition der Konstanten (in diesem Fall catColor)

Gruß TStone

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

---

Hallo Tstone,

danke für deine Antwort. Es gibt auch noch die Möglichkeit die Farbe des kompletten Textes über die VisProperties zu ändern. Dazu muss das Textobjekt zu einer Selection hinzugefügt werden:

ListeDerSelection.Clear
ListeDerSelection.Add MyText
ListeDerSelection.VisProperties.SetRealColor 255, 0, 0, 1

C4N

Bernd

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