ohne selection/select
04.08.2005 08:42:52
GeorgK
versuche mal wieder ohne select auszukommen.
Beim ersten Makro funktionierts. Wie muß die Änderung beim zweiten Makro lauten? Kann mir dass bitte jemand sagen.
Sub Sendeinblend32()
Application.ScreenUpdating = False
ActiveSheet.Shapes("Rectangle 6").ScaleWidth 0.01, msoFalse, msoScaleFromTopLeft
Range("A4").Select
End Sub
Sub Sendausblend33()
Application.ScreenUpdating = False
ActiveSheet.Shapes("Rectangle 6").Select
Selection.ShapeRange.ScaleWidth 67.67, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 69.25
Selection.ShapeRange.Width = 98#
Selection.ShapeRange.Rotation = 0#
Range("A3").Select
End Sub
Vielen Dank und Gruß
Georg
Anzeige