Свойство Shape.Paths (Visio)

Возвращает коллекцию "Пути", отображающую координаты путей фигуры в системе координат родительского объекта фигуры. Только для чтения.

Синтаксис

выражение. Paths

выражение Переменная, представляющая объект Фигура.

Возвращаемое значение

Пути

Пример

Этот макрос Microsoft Visual Basic для приложений (VBA) помещает фигуру на страницу, извлекает коллекцию Paths, а затем использует свойство Points объекта Path для возврата массива точек, определяющего полилинию, аппроксимирующую объект Path.

 
Public Sub Paths_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim adblXYPoints() As Double 
 Dim strPointsList As String 
 Dim intOuterLoopCounter As Integer 
 Dim intInnerLoopCounter As Integer 
 
 Set vsoShape = ActivePage.DrawOval(1, 1, 4, 4) 
 
 For intOuterLoopCounter = 1 To vsoShape.Paths.Count 
 
 vsoShape.Paths(intOuterLoopCounter).Points 1#, adblXYPoints 
 For intInnerLoopCounter = LBound(adblXYPoints) To UBound(adblXYPoints) 
 strPointsList = strPointsList & adblXYPoints(intInnerLoopCounter) & Chr(10) 
 Next intInnerLoopCounter 
 
 Next intOuterLoopCounter 
 Debug.Print strPointsList 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.