如何在userform鼠标hover工具提示上换行？
我一直在试图find一种方法来在mouseover工具提示上放置换行符
我想展示
完全 – 从外部完全覆盖部分 – 仅覆盖外部的非空白否 – 仅在空白单元上input数据
至
全部 – 从外部完全覆盖
部分 – 仅从外部覆盖非空白
否 – 仅在空白单元上input数据
有没有办法做到这一点
使用Excel 2010 btw
在ControlTipText属性中的换行符/回车符被excel忽略。 一个可能的解决方法是有一个隐藏的多行标签（格式化看起来像一个工具提示）的可见性是通过使用相关的控件和用户窗体的MouseMove事件切换 – 即SomeControl_MouseMove显示标签和ParentForm_MouseMove隐藏它再次（可能会延迟）。 如果用户非常快速地移动指针，这种方法可能会有点击中或失败。 另一个（更好的，恕我直言）解决scheme将是一个永久可见的标签或文本框对象的forms，其标题/值根据当前鼠标指针下的控件，再次使用MouseMove事件改变。
编辑：如果，如我怀疑，您的工具提示与combobox/列表框控件相关联，您可能需要考虑在控件的第二列中有您的选项说明？
我试图保持简单（没有API，非常短的代码）：
Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 'If Events Then Dim list_index As Long, Zero As Long Zero = Me.ListBox1.TopIndex list_index = Y \ (8 + 2) + Zero ' ; 8 si the size of Font ; note \ is a integer division 'Me.label1 = Y 'test label 'Me.label2 = list_index 'test label 'Me.label3 = Zero 'test label With Me.ListBox1 .ControlTipText = .List(list_index, 1) End With 'End If End Sub
我不确定我是否理解这个问题。 通过“鼠标hover工具提示”你是一个评论，对吗？ 创build换行符应该没有问题。 只要按Enter / * 返回 *键，你想中断工作正常。 以下是我所做的一系列详细的说明。
1）我select了我想要的单元格。
2）在“审阅”function区中，我select了“新评论”。
3）然后我复制并粘贴到评论框中的文字。
4）我调整了评论框大小，以防止包装。
5）最后，我删除了文本，并手动重写，以确保我可以手动input换行符。
希望这可以帮助。 干杯。