Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1692to1696
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

CommandButton

CommandButton
31.05.2019 12:04:01
Werner
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CommandButton
31.05.2019 12:29:33
Nepumuk
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
Anzeige
AW: CommandButton
31.05.2019 12:55:30
Nepumuk
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
Anzeige
AW: CommandButton
31.05.2019 13:02:54
Werner
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige