Format von Textfeldern
15.02.2004 16:03:57
Mathias G
ich möchte für die Ausgabe einer Meldung ein Textfeld nutzen. Hierfür habe ich mir folgenden Code zusammengestückelt:
Sub Textbox()
Worksheets("Entwicklung Fonds").OLEObjects.Add _
(ClassType:="Forms.TextBox.1", Left:=200, Top:=200, Width:=300,
Height:=30).Activate
ActiveSheet.OLEObjects(Worksheets("Entwicklung Fonds").OLEObjects.Count).Name = "Nachricht"
Worksheets("Entwicklung Fonds").OLEObjects("Nachricht").Object.Text = _
"Bitte warten, übernehme die Kurse vom " & CDate(38023)
Worksheets("Entwicklung Fonds").Shapes("Nachricht").Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
weitere Formatierungen
Abarbeitung von Code
Worksheets("Entwicklung Fonds").OLEObjects("Nachricht").Delete
End Sub
Das Textfeld erscheint ordnungsgemäß und wird ordnungsgemäß gelöscht, aber die Formatierungen bei der Anzeige werden nicht gemacht. Was mache ich falsch? Die Formatierungen habe ich über den Makrorecorder bei der Bildschirmanzeige aufgezeichnet.
Danke im voraus.
Mathias G