---

Hallo Leute,
ich habe mal wieder ein Problem. Ich will in DrawingFrame die Textfelder bearbeiten und die Schriftgröße anpassen.
Mit der Bearbeitung funktionert alles soweit aber ich komme mit der schriftgröße nicht zu Recht!!!! Weiss jemand was ich heir falsch mache?
Ich danke euch.
MFG
BM

Sub CATMain()

Set drawingDocument1 = CATIA.ActiveDocument
Set drawingSheets1 = drawingDocument1.Sheets
Set drawingSheet1 = drawingSheets1.Item("Sheet.4 (Detail)")
Set drawingViews1 = drawingSheet1.Views
Set MyView = drawingViews1.ActiveView
'*****Auf dem Sheet funktioniert mit dem Textgröße
Set MyText = MyView.Texts.Add("Maximum Dimensions", 300.,750.)
Dim FontSize As double
FontSize = 35
MyText.SetFontSize 0, 0, FontSize
'===================================================
' *********Überschrift im Rahmen einfügen:

        Besch=" Rahmentitle"
        Besch=inputbox ("Bitte Geben Sie die Überschrift. ein: ","Rahmen Überschrift",Besch)
MyView.Texts.GetItem("Text.59").Text =Besch

'***************Ab hier funktionert das nicht mehr...
'***************
Set MyText1 = MyView1.Texts.GetItem("Text.59").Text

MyText1.SetFontSize 0, 0, 14

End Sub

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

---

Zitat:

---

Original erstellt von sucher2010:

'***************Ab hier funktionert das nicht mehr...
'***************
Set MyText1 = MyView1.Texts.GetItem("Text.59").Text

MyText1.SetFontSize 0, 0, 14


End Sub

---

Du hast myview1 doch gar nicht definiert, deshalb findet er vielleicht den text nicht!

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

---

Hmmmm es liegt nicht daran.. hab geändert aber trotzdem Fehler;-(

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

---

Servus
Ohne es getestet zu haben: versuch mal:
Set MyText1 = MyView.Texts.GetItem("Text.59")
MyText1.SetFontSize 0, 0, 14

Gruß
Bernd

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

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