• ベストアンサー

excel2007 VBAで直線(図形の直線コネクタ)を描きたい

Excel2007のマクロで、グラフの中に直線(図形の直線コネクタ)が描けなくて困っています。 現在のソースは、 Set tmp = ActiveChart.Shapes.AddShape(msoLine, 左, 上, 幅?, 高さ) です。 何故か、楕円になってしまいます。 どなたか助けてください…

質問者が選んだベストアンサー

  • ベストアンサー
  • DreamyCat
  • ベストアンサー率56% (295/524)
回答No.1

直線コネクタを作成し、四角形の4番目の接続位置に接続します。 ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 138#, 145.5, 96.75, 47.25).Select Selection.ShapeRange.ConnectorFormat.BeginConnect ActiveSheet.Shapes( "正方形/長方形 1"), 4 '

earthkun14
質問者

お礼

ご回答ありがとうございました!! 無事に描けました!