Textfelder
19.08.2015 15:55:06
Sebastian
ich versuche ein Textfeld über VBA zu erstelln, was auch funktioniert. Leider ist aber der Text ausserhalb des Textfeldes.
Kann mir jemand erklären wieso bzw.wie ich das Problem vermeide?
Vielen Dank ;)
Sub Test_2()
w = 5
Sheets("Tabelle1").Activate
Dim objShp As Object
Set objShp = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 20#, 20, 0#, 0#)
With objShp
.Name = Sheets("Tabelle1").Cells(w, 4).Value
With .TextFrame
.AutoSize = msoTrue
Selection.Characters.Text = Sheets("Tabelle1").Cells(w, 4).Value
End With
.Fill.ForeColor.SchemeColor = 9
End With
End Sub