如何：hover在形状显示文本框

我想这样做，当用户hover在一个三angular形如下所示，一个文本框popup与该三angular形有关的某些信息。

三angular形绘制与以下function…

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 

我一直没有find任何有关如何做这件事的例子或好的文件，所以我想我会在这里问。 任何和所有的帮助非常感谢！

Answer 1

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

单元格的数字坐标可以用来确定实际的单元格名称（即E5），使用如下代码（ 源代码 ）：

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

这可以跟随：

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