msoLine
形状オブジェクトの始点と終点の座標にアクセスする方法はありますか? 私はExcel 2010でレガシーファイルを扱っています(Excel 2003からだと思います)。
オブジェクトmsoFreeform
を指定すると、次のようなものを使用して、さまざまな座標に順番にアクセスできます。
With myDocument.Shapes(i)
If .Type = msoFreeform Then
nodeCount = .Nodes.Count
For k = 1 To nodeCount
pointsArray = .Nodes.Item(k).Points
X1 = pointsArray(1, 1)
Y1 = pointsArray(1, 2)
Next k
End If
End With
ただし、このメソッドは、始点と終点を返しても、何も返さないmsoLine
オブジェクトに対しては失敗します。.Nodes.Item(k).Points
.Nodes.Count
2
何か不足していますか?