Select - Selection
15.02.2009 11:05:00
Benedikt
Um unnötiges aus der Makroaufzeichnung zu entfernen möchte ich Select und Selection entfernen. Nur läuft dann das Makro nicht mehr.
Weiss jemand wie das geht?
'Bestehenden Druckbutton umschreiben:
ActiveSheet.Shapes("Button 96").Select
Selection.ShapeRange.IncrementLeft 48.75
Selection.Characters.Text = "Rechnung drucken"
'Neuen Button "Archivieren anlegen"
ActiveSheet.Buttons.Add(56.25, 5.25, 123, 16.5).Select
Selection.ShapeRange.ScaleWidth 1.02, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.07, msoFalse, msoScaleFromBottomRight
Selection.Characters.Text = "Rechnung archivieren"
With Selection.Characters(Start:=1, Length:=20).Font
.Name = "MS Sans Serif"
.FontStyle = "Fett"
.Size = 8.5
Selection.OnAction = "'Material.xls'!Offerte_ausbuchen_neu"
End With