如何：将鼠标悬停在形状上显示TextBox

Question

我试图这样做，当用户将鼠标悬停在如下所示的三角形上时，会弹出一个文本框，其中包含与该三角形相关的某些信息。

使用以下功能绘制三角形...

Public Sub drawTriangle(theRow As Integer, theColumn As Integer, Optional myColor As System.Drawing.Color = Nothing)
        myColor = System.Drawing.Color.Black
        Dim theShape As Microsoft.Office.Interop.Excel.Shape = xlWorkSheet.Shapes.AddShape(MsoAutoShapeType.msoShapeIsoscelesTriangle, (xlWorkSheet.Cells(theRow, theColumn)).Left + 18, (xlWorkSheet.Cells(theRow, theColumn)).Top, 15, 14)
        theShape.Fill.ForeColor.RGB = ToBgr(myColor)
        theShape.Line.ForeColor.RGB = ToBgr(myColor)

    End Sub

我无法找到任何关于如何做到这一点的例子或文档，所以我想我会问这里。任何和所有的帮助非常感谢!!

Answer 1

根据MSDN，可以将评论添加到范围中。为了使其适用于您的应用程序，您只需选择与您的形状对应的范围，然后调用AddComment（）。

单元格的数字坐标可用于通过使用以下代码（source）来确定实际的单元格名称（即E5）：

address = xlWorkSheet.Cells(RowVariable, ColVariable).Address

这可以跟进：

xlWorkSheet.Range(address).AddComment("This is a comment")