Question

EXCEL 文本框控件点击文字变很小，失去焦点后又回复正常，这怎么解决？

在EXCEL中添加了个文本框控件，选中输入的时候字体变得很小，看不清楚，输入完之后（失去焦点）字体又回复正常了，请问怎么解决好？





Answer 1

Private Sub 恢复控件字体显示()'此过程可以恢复所有ActiveX控件字体显示问题，代码放在对应工作表里面。
    Dim obj As OLEObject
    Dim Hei As Single
    Dim Wid As Single
    For Each obj In Me.OLEObjects
        Debug.Print obj.Name
        Hei = obj.Height
        Wid = obj.Width
        obj.Height = Hei - 1
        obj.Width = Wid - 1
        obj.Height = Hei
        obj.Width = Wid
    Next    
End Sub

Answer 2

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.TextBox1.Font.Size = 9
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.TextBox1.Font.Size = 12
End Sub

追问

是的，这样强制修改字体大小可以。不过我想知道为何会出现这个情况，大大知道吗？
然后我发现，如果你上面两个字体（点击文本框跟点击其他地方两个操作）修改为同样大小的话，又会出现同样的情况。

追答

你的追问，描述不祥，有事可能密我

Answer 3

在文本框 点击右键，字体。调整

追问

更改了字体后单次正常了，但是重启EXCEL文件后，情况还是一样，能解决？