Selection.ShapeRange.Rotation = 25#
statt der 25 der Wert aus z.B. Zelle A1 steht. Was muß ich da machen bzw. dem Code hinzufügen? Sorry, bin totaler Anfänger mit VBA.
Vielen Dank
Code:
Sub Schaltfläche13_BeiKlick()
' Schaltfläche13_BeiKlick Makro
' Makro am 06.12.2004 aufgezeichnet
Application.CutCopyMode = False
ActiveSheet.Shapes("Line 12").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 33.6
Selection.ShapeRange.Width = 326.4
Selection.ShapeRange.Rotation = 25#
End Sub