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

Beiträge aus den Excel-Beispielen zum Thema "Größe von Command Buttons ändern"