Anpassung der Button- an die Spaltenbreite
02.09.2002 17:22:14
Davidxls
Sub ButtonBreite()
ColAA_Breite = Columns("A:A").Width
ColAA_Hoehe = Rows("1:1").RowHeight
ActiveSheet.Shapes("CommandButton1").Left = 0
ActiveSheet.Shapes("CommandButton1").Top = 0
ActiveSheet.Shapes("CommandButton1").Width = ColAA_Breite
ActiveSheet.Shapes("CommandButton1").Height = ColAA_Hoehe
End Sub