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

質問

Excel2007のマクロで、グラフの中に直線（図形の直線コネクタ）が描けなくて困っています。

現在のソースは、
Set tmp = ActiveChart.Shapes.AddShape(msoLine, 左, 上, 幅？, 高さ)

です。
何故か、楕円になってしまいます。

どなたか助けてください…

回答No.1

DreamyCat · ベストアンサー

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

お礼

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