Herbers Excel-Forum - das Archiv

Größe von Command Buttons ändern

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Größe von Command Buttons ändern
von: Headbanger

Geschrieben am: 19.03.2005 13:56:30
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
Bild

Betrifft: AW: Größe von Command Buttons ändern
von: Nepumuk

Geschrieben am: 19.03.2005 14:57:21
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
Bild

Betrifft: AW: Größe von Command Buttons ändern
von: Bert

Geschrieben am: 19.03.2005 15:06:43
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
Bild

Betrifft: AW: Größe von Command Buttons ändern
von: Nepumuk
Geschrieben am: 19.03.2005 15:14:26
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
Bild

Betrifft: AW: Größe von Command Buttons ändern
von: Bert
Geschrieben am: 19.03.2005 15:41:29
.OLEFormat.Object.Left = Range(.TopLeftCell.Address).Left
.OLEFormat.Object.Left = .TopLeftCell.Left

Gruß Bert
Bild

Betrifft: AW: Größe von Command Buttons ändern
von: Nepumuk
Geschrieben am: 19.03.2005 15:47:42
Hi Bert,
manchal denkt man ein bisschen kompliziert. :-))
Gruß
Nepumuk
 Bild
Excel-Beispiele zum Thema "Größe von Command Buttons ändern"
Auflistung aller CommandBars Wert in einer CommandBarComboBox verändern
Auf UserForm-CommandButton-Klick eine Internetseite aufrufen CommandBar in Abhängigkeit vorhandener Makros erstellen
CommandButtons in verschiedenen Tabellen mit einem Makro CommandButtons sollen auf Schaltflächen-Klick deaktiviert werden
Maximalwert eines SpinButtons nach Zellwert festlegen Auflisten von OptionButtons in Kontextmenü
Werte von OptionButtons aus 2 Gruppen auslesen Wert eines UserForm-ToggleButtons auslesen