Свойство Shape.Paths (Visio)
Возвращает коллекцию Paths , которая сообщает координаты путей фигуры в системе координат родительского элемента фигуры. Только для чтения.
Синтаксис
выражение. Paths
Выражение Переменная, представляющая объект Shape .
Возвращаемое значение
Пути
Пример
Этот макрос 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 и обратная связь.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по