Datum

Titel

23.04.2024 11:26:57

Probleme mit tbl.Listrows.add

23.04.2024 10:55:14

Zeilen sortieren

23.04.2024 10:23:52

Tabelle 90° drehen + Filteroptionen

23.04.2024 10:11:03

Dateiname plus Wenn vorhanden dann "(1)" anhängen.

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

332to336

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Buttongröße per Schleife

Forumthread: Buttongröße per Schleife
6 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
Top 100 Forumthreads

09.11.2003 10:56:53

Thomas

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 Makros 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

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Buttongröße per Schleife

09.11.2003 11:18:33

Josef Ehrensberger
Hallo Josef, Vielen Dank

09.11.2003 11:39:31

Thomas
Danke für die Rückmeldung (o.T.)

09.11.2003 11:40:14

Josef Ehrensberger
kurze Nachfrage

09.11.2003 11:47:15

Thomas
AW: kurze Nachfrage

09.11.2003 11:52:23

Josef Ehrensberger
Super Vielen Dank

09.11.2003 13:08:08

Thomas

AW: Buttongröße per Schleife

09.11.2003 11:18:33

Josef Ehrensberger

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

Hallo Josef, Vielen Dank

09.11.2003 11:39:31

Thomas

und ein schönes Wochenende

Danke für die Rückmeldung (o.T.)

09.11.2003 11:40:14

Josef Ehrensberger

kurze Nachfrage

09.11.2003 11:47:15

Thomas

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

AW: kurze Nachfrage

09.11.2003 11:52:23

Josef Ehrensberger

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

Super Vielen Dank

09.11.2003 13:08:08

Thomas

Wenn es Euch nicht gäbe...