http://www.excite-cache.jp/search.gw?target=cache&look=excite_jp&cacheurl=%2Fcache%3Fu%3Dwww.it%2Dblog.pref.fukui.jp%2Fu%2Fijupiter%2F8oAqOzT94aIr2KlJbp6u%2F%253Fitblog%253D44d63819385ae83617892e9bbc62185a%26w%3Dshape%2Btextframe%26d%3DCs%2DjDy72RJXK&preurl=http%3A%2F%2Fwww.excite.co.jp%2Fsearch.gw%3Fsearch%3Dshape.textframe%26target%3Dcombined%26look%3Dexcite%5Fjp%26Language%3D
引き続き、前回作成したソリューションを使います。
イベントハンドラに、コネクタを生成する コードを追加します。
実行し、Sheet1上でダブルクリックを行うと、以下のように表示されます。
次に、コネクタを接続するため、以下のコードを追加します。
実行し、Sheet1上でダブルクリックを行うと、以下のように表示されます。
矢印をドラッグすると、接続されたコネクタが追随してきます。
AddConnectorメソッド
引き続き、前回作成したソリューションを使います。
イベントハンドラに、コネクタを生成する コードを追加します。
private void Sheet1_BeforeDoubleClick(Excel.Range Target, ref bool Cancel)
{
// オートシェイプを作成
Excel. Shape shape =
((Excel.Worksheet)this.Application.ActiveSheet).Shapes.AddShape(
Office.MsoAutoShapeType.msoShapeFlowchartProcess,
0f, 0f, 100f, 100f);
// オートシェイプにテキストを追加
shape. TextFrame.Characters(0, 0).Insert("ほげほげ");
// オートシェイプのテキストの一部の色を変える
shape. TextFrame.Characters(0, 2).Font.Color = (object)0x00ff00;
// 直線を作成
Excel. Shape shape2 =
((Excel.Worksheet)this.Application.ActiveSheet).Shapes.AddLine(
200f, 0f, 200f, 100f);
// 直線を矢印に変更
shape2.Line.EndArrowheadStyle =
Microsoft.Office.Core.MsoArrowheadStyle.msoArrowheadTriangle;
// コネクタを作成
Excel. Shape shape3 =
((Excel.Worksheet)this.Application.ActiveSheet).Shapes.AddConnector(
Office.MsoConnectorType.msoConnectorCurve,
100f, 0f, 200f, 100f);
}
実行し、Sheet1上でダブルクリックを行うと、以下のように表示されます。
![](http://www.it-blog.pref.fukui.jp/p/ijupiter/8oAqOzT94aIr2KlJbp6u/1.jpg)
次に、コネクタを接続するため、以下のコードを追加します。
private void Sheet1_BeforeDoubleClick(Excel.Range Target, ref bool Cancel)
{
// オートシェイプを作成
Excel. Shape shape =
((Excel.Worksheet)this.Application.ActiveSheet).Shapes.AddShape(
Office.MsoAutoShapeType.msoShapeFlowchartProcess,
0f, 0f, 100f, 100f);
// オートシェイプにテキストを追加
shape. TextFrame.Characters(0, 0).Insert("ほげほげ");
// オートシェイプのテキストの一部の色を変える
shape. TextFrame.Characters(0, 2).Font.Color = (object)0x00ff00;
// 直線を作成
Excel. Shape shape2 =
((Excel.Worksheet)this.Application.ActiveSheet).Shapes.AddLine(
200f, 0f, 200f, 100f);
// 直線を矢印に変更
shape2.Line.EndArrowheadStyle =
Office.MsoArrowheadStyle.msoArrowheadTriangle;
// コネクタを作成
Excel. Shape shape3 =
((Excel.Worksheet)this.Application.ActiveSheet).Shapes.AddConnector(
Office.MsoConnectorType.msoConnectorCurve,
100f, 0f, 200f, 100f);
// コネクタを接続する
shape3.ConnectorFormat.BeginConnect( shape, 4);
shape3.ConnectorFormat.EndConnect(shape2, 1);
}
実行し、Sheet1上でダブルクリックを行うと、以下のように表示されます。
矢印をドラッグすると、接続されたコネクタが追随してきます。