2016-12-15 11 views
0

ユーザーが以下のように三角形の上を移動すると、その三角形に関する特定の情報がテキストボックスにポップアップ表示されます。 enter image description here方法:図形上にカーソルを置く

三角形は、以下の機能...

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 

で描画されている私は、私はこれを行うだろう方法についての例や良いドキュメントを見つけることができていないので、私は、私はここにお願いしたいと思いました。どんなすべての助けも大歓迎です!

+0

この情報は読み取り専用ですか?もしそうなら、それを三角形に付けられたコメントオブジェクトにすることができますか? – vbnet3d

+0

@ vbnet3dそれは読み込み専用です...あなたのように聞こえるのは、ホバートしたときに表示されていれば完全で、 – Bob

+0

を覆わないと消えてしまう限りです。[MSDN](https:// msdn .microsoft.com/ja-us/library/office/microsoft.office.interop.excel.range.addcomment.aspx)を使用すると、範囲にコメントを追加できます。 – vbnet3d

答えて

2

MSDNによれば、コメントを範囲に追加することができます。これをアプリケーションに適用するには、形状に対応する範囲を選択してからAddComment()を呼び出すだけです。セルの

数値座標は次のようなコード(source)を使用して、実際のセル名(すなわち、E5)を決定するために使用することができる。

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

これはで追跡することができる。

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

素晴らしい、本当にありがとう。それが働いて...コメントボックスを作るための方法を問わなければならない、またはコメントボックスのフォントが小さくなっている? – Bob

+0

残念ながら私はそれについての経験はありませんが、手動で行うことができるので、interopを通して可能でなければならないと思います。 [ここから開始](https://msdn.microsoft.com/en-us/library/office/microsoft.office.interop.excel.comment_properties.aspx)、コメントには「Shape」プロパティがあることに注意してください。あなたが必要とするものはおそらくどこかに埋葬されていると思います。 – vbnet3d

+0

ああ、美しいです。再度、感謝します!! – Bob

関連する問題