Selection.HorizontalAlignment = xlCenter
16.11.2004 13:14:37
Steve
Private Sub CommandButton1_Click()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 100, 100, 50, 50).Name = "formEins"
ActiveSheet.Shapes.Range("formEins").Select
Selection.Characters.Text = "Textfeld"
Selection.HorizontalAlignment = xlCenter REM hier hängt er dann ...
End Sub
Bitte um Abhilfe. LG Steve