excel-2010 - Excel 2010 BuildFreeForm に接続ポイントがありません

Question

VBA を使用して、ワークシートに描いたものと同様の四角形を作成すると、接続ポイントが表示されないのはなぜですか? 最後のノードを追加した後、ConvertToShape を使用します。すべてのポイントに msoEditingAuto を使用するか msoEditingCorner を使用するかは問題ではありません。いずれかのノードで SetPosition を使用し、既存の位置を使用する場合にのみ、接続ポイントを使用可能にできます。

Answer 1

Microsoft のオブジェクト リファレンスからの次のコードは、四角形でコネクタ ポイントを使用する例を示しています。

Sub buildshape3()

   Dim myDocument As Worksheet
   Dim s As Object
   Dim firstRect As Shape
   Dim secondRect As Shape
   Dim c As Shape

   Set myDocument = Worksheets(1)
   Set s = ActiveSheet.Shapes
   Set firstRect = s.AddShape(msoShapeRectangle, 100, 150, 150, 150) '50, 200, 100)

   firstRect.Fill.Transparency = 1
   Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100)
   Set c = s.AddConnector(msoConnectorCurve, 0, 0, 100, 100)
   With c.ConnectorFormat
      .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
      .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1
      c.RerouteConnections
   End With

End Sub