Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Größe von Command Buttons ändern

Forumthread: Größe von Command Buttons ändern

Größe von Command Buttons ändern
19.03.2005 13:56:30
Command
Hallo zusammen!
Ich habe in einem Arbeitsblatt mehrere Command Buttons angebracht. jetzt sollen diese immer schön untereinander stehen und die Größe einer Zelle haben.
Kann mir jemand sagen, wie ich das ändern kann ? Das sieht im Moment nämlich nicht schön aus! ;-)
Gruß HB
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Größe von Command Buttons ändern
19.03.2005 14:57:21
Command
Hallo ?,
versuch es damit:


Option Explicit
Public Sub test()
    Dim myShape As Shape
    For Each myShape In Worksheets(1).Shapes
        If myShape.Type = 12 Then
            With myShape
                If .OLEFormat.ProgId = "Forms.CommandButton.1" Then
                    .OLEFormat.Object.Left = Range(.TopLeftCell.Address).Left
                    .OLEFormat.Object.Top = Range(.TopLeftCell.Address).Top
                    .OLEFormat.Object.Width = Range(.TopLeftCell.Address).Width
                    .OLEFormat.Object.Height = Range(.TopLeftCell.Address).Height
                End If
            End With
        End If
    Next
End Sub


Gruß
Nepumuk
Anzeige
AW: Größe von Command Buttons ändern
19.03.2005 15:06:43
Command
So reichts auch:
Sub test()
Dim myShape As Shape
For Each myShape In Worksheets(1).Shapes
If myShape.Type = 12 Then
With myShape
If .OLEFormat.progID = "Forms.CommandButton.1" Then
.OLEFormat.Object.Left = .TopLeftCell.Left
.OLEFormat.Object.Top = .TopLeftCell.Top
.OLEFormat.Object.Width = .TopLeftCell.Width
.OLEFormat.Object.Height = .TopLeftCell.Height
End If
End With
End If
Next
End Sub

Gruß Bert
Anzeige
AW: Größe von Command Buttons ändern
19.03.2005 15:14:26
Command
Hallo Bert,
kannst du mir bitte den Unterschied erklären? Meine Makros sehen nämlich immer so aus und bisher hat sich noch keiner beschwert. Doch einmal, aber da konnte ich nichts dafür.
Gruß
Nepumuk
AW: Größe von Command Buttons ändern
19.03.2005 15:41:29
Command
.OLEFormat.Object.Left = Range(.TopLeftCell.Address).Left
.OLEFormat.Object.Left = .TopLeftCell.Left

Gruß Bert
Anzeige
AW: Größe von Command Buttons ändern
19.03.2005 15:47:42
Command
Hi Bert,
manchal denkt man ein bisschen kompliziert. :-))
Gruß
Nepumuk
;
Anzeige
Anzeige

Infobox / Tutorial

Größe von Command Buttons in Excel ändern


Schritt-für-Schritt-Anleitung

Um die Größe von Command Buttons in Excel zu ändern, kannst Du den folgenden VBA-Code verwenden. Dieser Code passt die Größe der Buttons automatisch an die Größe der Zellen an.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
  3. Füge den folgenden Code in das Modul ein:
Sub test()
    Dim myShape As Shape
    For Each myShape In Worksheets(1).Shapes
        If myShape.Type = 12 Then
            With myShape
                If .OLEFormat.ProgId = "Forms.CommandButton.1" Then
                    .OLEFormat.Object.Left = .TopLeftCell.Left
                    .OLEFormat.Object.Top = .TopLeftCell.Top
                    .OLEFormat.Object.Width = .TopLeftCell.Width
                    .OLEFormat.Object.Height = .TopLeftCell.Height
                End If
            End With
        End If
    Next
End Sub
  1. Schließe den VBA-Editor und gehe zurück zu deinem Arbeitsblatt.
  2. Führe das Makro aus, um die Größe der Command Buttons zu ändern.

Häufige Fehler und Lösungen

  • Fehler: Command Buttons ändern sich nicht
    Lösung: Stelle sicher, dass der VBA-Code im richtigen Arbeitsblatt ausgeführt wird. Überprüfe auch, dass die Buttons tatsächlich vom Typ "CommandButton" sind.

  • Fehler: Makro funktioniert nicht
    Lösung: Überprüfe, ob Makros in deinen Excel-Einstellungen aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Einstellungen für Trust Center > Einstellungen für Makros und aktiviere die Option.


Alternative Methoden

Wenn Du keine VBA-Makros verwenden möchtest, kannst Du die Größe der Buttons manuell anpassen:

  1. Klicke mit der rechten Maustaste auf den Button und wähle Größe und Eigenschaften.
  2. Stelle die Größe der Buttons auf die gewünschte Höhe und Breite ein.
  3. Positioniere die Buttons untereinander, um ein sauberes Layout zu erstellen.

Praktische Beispiele

Hier sind einige Szenarien, in denen Du die Größe von Command Buttons bearbeiten möchtest:

  • Formulare erstellen: Wenn Du ein Formular zur Dateneingabe hast, ist es wichtig, dass die Buttons eine einheitliche Größe haben, um die Benutzeroberfläche ansprechend zu gestalten.
  • Dashboards: In einem Dashboard möchtest Du, dass die Buttons eine konsistente Größe haben, um die Übersichtlichkeit zu verbessern.

Tipps für Profis

  • Buttons gruppieren: Wenn Du mehrere Command Buttons hast, kannst Du sie gruppieren, um die Größe und Position leichter zu verwalten.
  • VBA anpassen: Du kannst den VBA-Code anpassen, um spezifische Größen für verschiedene Buttons festzulegen, falls nötig.
  • HTML Button Größe: Überlege, wie Du die Buttons in einem exportierten HTML-Dokument darstellen möchtest, da die HTML Button Größe von der Excel-Größe abweichen kann.

FAQ: Häufige Fragen

1. Wie kann ich die Größe von mehreren Command Buttons gleichzeitig ändern?
Du kannst das oben genannte Makro verwenden, um alle Command Buttons in einem Arbeitsblatt gleichzeitig anzupassen.

2. Funktioniert das auch in Excel 365?
Ja, der VBA-Code ist mit Excel 365 und anderen Versionen von Excel kompatibel, solange Makros aktiviert sind.

3. Kann ich die Buttons auch ohne VBA ändern?
Ja, Du kannst die Größe der Buttons manuell über das Kontextmenü anpassen, jedoch ist dies weniger effizient, wenn Du viele Buttons hast.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige