M$ bug: ActiveX controls shrinks when resolution changes

[Gringoire]

Dear friends,
after some years I stumbled again on a well known M$ bug: activeX controls (buttons, combobox, etc...) shrinks their dimensions ans font size becoming unreadables (see picture below).
It happened when screen resolution changes.

Until today I solved (workaround) this issue calling the routine below at each time the activeX control is used.
Today, after a presentation on a big wallscreen this bug appeared again!
The debugger shows that BtnResize routine is called as expected but without any effect.

I already did some try about autosize false or true (true is even worst!), printable or not, etc... with no success.
I would like to avoid moving the activeX controls from worksheet to a dedicated form because it is an huge project with dozen of modules and thousands of code lines to review.

Microsoft suggest to update the register, but this excel file will be redistributed to dozen of Users, I cannot force each one of them to update the win register.

Do you have any fresh solution to this issue?

Sub BtnResize(B As Object, FS As Integer, t As Double, L As Double, H As Integer, W As Integer)

    '(B=name FS=fontsize, T=top, L=left H=height, W=width)
    B.Font.Size = 7       'size change to avoid bugged fonts
    B.Top = t
    B.Left = L
    B.Height = H
    B.Width = W
    B.Font.Size = FS
End Sub