Excel 2016: Active-X-Elemente ändert bei einem Klick auf dieses die Schiftgröße

[Benni]

Hallo zusammen,

ich habe seit letzter Woche Excel 2016 (auf Win10) und musste bei einer "alten" Excel-Tabelle mit Makros feststellen, dass wenn ich diese ausführe (Klick auf den Command-Button) sich die Schriftgröße des Command-Buttons immer mehr vergrößert, bis der Command-Button nur noch als ein Rießenpixel bzw. grau dargestellt wird.

Zum Test ob es an der "alten" Excel-Tabelle liegt, hab ich eine komplett neue Tabelle aus Excel 2016 erstellt, einen Command-Button eingefügt, der nur das Tabellenblatt 2 aktiviet. Das Makro funktioniert, nur der Button hat das gleiche Problem wie in der "alten" Tabelle.

Eine formatierung des Command-Buttons, dass er sich nicht mit der Zellengröße ändert (wie bei Excel 2003 in vielen Foren vorgeschlagen) hat bei mir keinen Erfolg.
Ich habe weiter herausgefunden dass dieses Problem bei mir bei allen Active-X-Steuerelementen vorliegt.

Ist das Problem bekannt?
Gibt es eine Lösung dafür?

(Ich hoffe ich konnte das Problem genau genug beschreiben, wenn nicht, einfach Fragen...)

Vielen Dank schon im vorab für euere Hilfe.

Grüße,
Benni

[maninweb]

Hallo,

das Problem gibt's in bestimmten Konstallationen schon länger, hier z.B. ein Beitrag vom Excel Team MS TechNet Blog zu Excel 2010 in Englisch.
Das Problem kann z.B. mit der Monitor-Auflösung zu tun haben. Registry-Manipulationen, wie im TechNet-Beitrag zu lesen, können eine
Besserung bringen, am einfachsten ist aber im Code in der Ereignisprozedur zum Klick, die Größe zurückzusetzen, z.B.:

Code: Visual Basic

1. objButton.Height = 50
2. objButton.Width= 200

Gruß

[Benni]

Hallo Maninweb,

auf diesen Lösungsvorschlag bin ich im Netz auch schon gestoßen und hab den auch versucht, leider erfolglos.
Mein Code sieht aktuell so aus:

Private Sub cmd_test_1_Click()
    Worksheets("Tabelle3").Activate
    cmd_test_1.Width = 150
    cmd_test_1.Height = 50
    cmd_test_1.Font.Size = 11
End Sub


Gruß

[maninweb]

Hallo,

umgedreht, klappt es dann?

Private Sub cmd_test_1_Click()
    cmd_test_1.Width = 150
    cmd_test_1.Height = 50
    cmd_test_1.Font.Size = 11
    Worksheets("Tabelle3").Activate
End Sub

Gruß