Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

CommandButton


Betrifft: CommandButton von: Werner
Geschrieben am: 31.05.2019 12:04:01

Guten Tag, Excel Freunde!

Mit folgendem Makro möchte ich ein Button ändern

Sub Test6()

With ActiveSheet.OLEObjects("CommandButton" & 7).Object

                  .Top = Range("AL13").Top
                  .Left = Range("AL13").Left
                  .Width = Range("AL13").Width
                  .Height = Range("AL13").Height
                  .Font.Name = "Arial"
                  .Font.Size = 10
                  .Font.Bold = True

End With

End Sub
wobei aber bei der Ausführung ein Fehler angezeigt wird.

Laufzeitfehler 438

Objekt unterstützt diese Eigenschaft oder Methode nicht

Bisher habe ich noch keine Lösung gefunden,
dieses Makro funktionsfähig anzupassen.

Für evtl. Tipps oder Lösungen schönen Dank im Voraus!
Werner

  

Betrifft: AW: CommandButton von: Nepumuk
Geschrieben am: 31.05.2019 12:29:33

Hallo Werner,

teste mal:

Sub Test6()
    
    With ActiveSheet.OLEObjects("CommandButton7")
        
        .Top = Range("AL13").Top
        .Left = Range("AL13").Left
        .Width = Range("AL13").Width
        .Height = Range("AL13").Height
        With .Object
            .Font.Name = "Arial"
            .Font.Size = 10
            .Font.Bold = True
        End With
    End With
    
End Sub

Gruß
Nepumuk


  

Betrifft: AW: CommandButton von: Nepumuk
Geschrieben am: 31.05.2019 12:55:30

Hallo Werner,

noch besser:

Sub Test6()
    With ActiveSheet.OLEObjects("CommandButton7")
        .Top = Range("AL13").Top
        .Left = Range("AL13").Left
        .Width = Range("AL13").Width
        .Height = Range("AL13").Height
        With .Object.Font
            .Name = "Arial"
            .Size = 10
            .Bold = True
        End With
    End With
End Sub

Gruß
Nepumuk


  

Betrifft: AW: CommandButton von: Werner
Geschrieben am: 31.05.2019 13:02:54

Hallo Nepumuk,

einen schönen Dank für Deine Hilfe.

Beide Lösungen funktionieren einwandfrei!

Ohne Deine Hilfe hätte ich das Problem nicht lösen können.
Du bist der "Beste".

Wieder etwas gelernt.

Schöne Grüße
Werner


Beiträge aus dem Excel-Forum zum Thema "CommandButton"