Buttongröße per Schleife

Bild

Betrifft: Buttongröße per Schleife
von: Thomas
Geschrieben am: 09.11.2003 10:56:53

Hallo liebe Experten,
Auf einem Tabellenblatt hat sich im Laufe der Zeit eine Unmenge ( 96 ) von Hilfsbutton angesammelt. Nun möchte ich mit Hilfe eines Makro’s die Größe dieser Button vereinheitlichen.
Folgendes Makro habe ich schon mal aufgezeichnet. Nun fehlt mir “NUR“ der Schleifenbefehl um alle Button einheitlich zu gestalten.
Vielen Dank für eure Hilfe und ein schönes Wochenende


Sub buttongr2()
    ActiveSheet.Shapes("Button 96").Select
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Height = 10.5
    Selection.ShapeRange.Width = 18#
End Sub

Bild


Betrifft: AW: Buttongröße per Schleife
von: Josef Ehrensberger
Geschrieben am: 09.11.2003 11:18:33

Hallo Thomas,

wenn alle Schaltflächen den Namen "Button" mit einer Nummer
haben, sollte folgendes Makro funktionieren.


Sub groesse()
Dim btn As Shape
Dim sht As Worksheet
Application.ScreenUpdating = False
For Each sht In ThisWorkbook.Sheets
sht.Activate
For Each btn In sht.Shapes
If Left(btn.Name, 6) = "Button" Then
btn.Select
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Height = 10.5
    Selection.ShapeRange.Width = 18
End If
Next
Next
Application.ScreenUpdating = True
End Sub


Gruß Sepp


Bild


Betrifft: Hallo Josef, Vielen Dank
von: Thomas
Geschrieben am: 09.11.2003 11:39:31

und ein schönes Wochenende


Bild


Betrifft: Danke für die Rückmeldung (o.T.)
von: Josef Ehrensberger
Geschrieben am: 09.11.2003 11:40:14

/


Bild


Betrifft: kurze Nachfrage
von: Thomas
Geschrieben am: 09.11.2003 11:47:15

Hallo Josef,
Das funktioniert prima. Was muss ich aber ändern, damit das Makro nur in einem Tabellenblatt ausgeführt wird?
Vielen DAnk für Deine Hilfe
Thomas


Bild


Betrifft: AW: kurze Nachfrage
von: Josef Ehrensberger
Geschrieben am: 09.11.2003 11:52:23

Hi Thomas,

ändere das Makro so.


Sub groesse()
Dim btn As Shape
Application.ScreenUpdating = False
For Each btn In ActiveSheet.Shapes
If Left(btn.Name, 6) = "Button" Then
btn.Select
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Height = 10.5
    Selection.ShapeRange.Width = 18
End If
Next
Application.ScreenUpdating = True
End Sub


Gruß Sepp


Bild


Betrifft: Super Vielen Dank
von: Thomas
Geschrieben am: 09.11.2003 13:08:08

Wenn es Euch nicht gäbe...


Bild

Beiträge aus den Excel-Beispielen zum Thema " Buttongröße per Schleife"