Select/Selection vermeiden
01.10.2004 14:22:10
Julia
kann man folgendes Makro o h n e Select/Selection schreiben und wenn ja, wie?
Sub Makro1()
Dim otext As Shape
Set otext = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 35.25, 72#, _
168.75, 67.5)
otext.Select
Selection.Characters.Text = "Hallo"
otext.Select
Selection.ShapeRange.IncrementLeft 414#
Selection.ShapeRange.IncrementTop 36.75
End Sub
Gruß
Julia