Hallo Zusammen,
würde gerne mein Textfeld positionieren.
Habe es wiefolgt funktioniert. Klappt auch, leider ist kann ich den Namen des Arrays nicht mit der Variablen k ansteuern.....
Das ganze soll in einem Loop am Ende für mehrere Textboxen funktionieren.
Kann mir jemand sagen wie ich das Array mit der Variablen k ansteuern kann ?
Vielen Dank und Viele Grüße,
Mike
Sub Test_3()
w = 5
Sheets("Stakeholder_Analyse").Activate
Dim objShp As Object
Set objShp = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 20#, 20, 0#, 0#)
With objShp
.Name = w
With .TextFrame
.AutoSize = msoTrue
.Characters.Text = Sheets("Stakeholder_Analyse").Cells(w, 2).Value & " " & Sheets("Stakeholder_Analyse").Cells(w, 3).Value & " " & Sheets("Stakeholder_Analyse").Cells(w, 4).Value
End With
'Formatierung der Textbox
.Fill.ForeColor.SchemeColor = 9
.Fill.Visible = msoFalse
.Line.Visible = msoFalse
End With
ActiveSheet.Shapes.Range(Array("VarRaw")).Select
ActiveSheet.Shapes.Range(Array("VarRaw")).Top = Range("K2").Top
ActiveSheet.Shapes.Range(Array("VarRaw")).Left = Range("K2").Left
|