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

Posted 2023-04-15

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

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

参考技术A 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追问

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

追答

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

本回答被提问者和网友采纳 参考技术B 在文本框 点击右键，字体。调整追问

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

C# WinForm 文本框离开焦点事件 问题？？？

如果两次密码输入不一致，文本框离开焦点弹出提示，这个界面上有个取消按钮
当密码输入不一致时点击取消按钮，它还是谈出提示怎么解决？？

不好改，因为你去点鼠标，焦点必须离开文本框，此时肯定出发焦点离开事件，然后先执行这个事件，然后才去执行按钮点击事件。

可以规避，只是不太好。焦点离开文本框后不马上执行弹出提示窗口，而是启动一个100ms的定时器，速度也很快了。定时器结束后再去执行。执行代码那设个变量控制，按钮那也要有这个变量。

即：点按钮后，触发焦点离开事件，等100ms执行，此时应该执行按钮点击事件了，在那里将标志改掉。等定时器结束后，去执行弹出窗口，发现标志不符合弹窗口条件，就不弹出来了。

你可以试试。我没.net环境，所以没法测 参考技术A

 leave 事件

参考技术B 1、第二个密码框失去焦点事件2、在事件内加判断（密码是否一致）并提示3、取消按钮事件加提示 参考技术C 在离开焦点的触发事件中增加判断 参考技术D 你将提示代码写在文本框的leave事件里面