Hallo zusammen,
ich möchte via VBA Textfelder erstellen.
Leider wird mein Text ausserhalb des Textfeldes kopiert ;(
Kann mir jemand sagen wieso ?
Sub Test_2()
k = 5
Sheets("Stakeholder_Analyse").Activate
Dim objShp As Object
Set objShp = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 20#, 20, 0#, 0#)
With objShp
.Name = Sheets("Stakeholder_Analyse").Cells(k, 4).Value
With .TextFrame
.AutoSize = msoTrue
Selection.Characters.Text = Sheets("Stakeholder_Analyse").Cells(k, 4).Value
End With
.Fill.ForeColor.SchemeColor = 9
End With
End Sub
|