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

Статья
04/07/2023

Возвращает или задает тип строки в разделе Geometry, Connection Points, Controls или Tabs ShapeSheet. Для чтения и записи.

Синтаксис

expression. RowType (Section, Row)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Section	Обязательный	Integer	Индекс раздела, содержащего строку.
Row	Обязательный	Integer	Индекс строки.

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

Целое число

Замечания

После изменения типа строки новый тип строки может содержать или не иметь одинаковые ячейки. Ваша программа должна предоставить соответствующие формулы для новых или измененных ячеек.

Вы можете указать нужный тип строки, установив параметр RowType равным любой из следующих констант, объявленных библиотекой типов Visio в элементе VisRowTags.

Константа	Значение
visTagComponent	137
visTagMoveTo	138
visTagLineTo	139
visTagArcTo	140
visTagInfiniteLine	141
visTagEllipse	143
visTagEllipticalArcTo	144
visTagSplineBeg	165
visTagSplineSpan	166
visTagPolylineTo	193
visTagNURBSTo	195
visTagTab0	136
visTagTab2	150
visTagTab10	151
visTagTab60	181
visTagCnnctPt	153
visTagCnnctNamed	185
visTagCtlPt	162
visTagCtlPtTip	170

Если передается недопустимый тег строки или строка не существует, изменения не происходят и возвращается ошибка.

Используйте свойство RowName для перехода с неименованных строк на именованные строки точек подключения.

Список допустимых констант строк см. в разделе VisRowIndices , а список допустимых констант тегов строк — в visRowIndices .

Список допустимых констант разделов см. в разделе VisSectionIndices .

Пример

В этом макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать свойство RowType для изменения типа строки таблицы фигур. Он рисует прямоугольник на странице и смычки или кривые линии прямоугольника, изменяя линии фигуры на дуги. Это достигается путем изменения типов строк таблицы фигур для каждой стороны прямоугольника с LineTo на ArcTo, а затем путем изменения значений ячеек X и Y в каждой из этих строк.

 
Public Sub RowType_Example() 
 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 Dim vsoCell As Visio.Cell 
 Dim strBowCell As String 
 Dim strBowFormula As String 
 Dim intCounter As Integer 
 
 'Set the value of the strBowCell string. 
 strBowCell = "Scratch.X1" 
 
 'Set the value of the strBowFormula string. 
 strBowFormula = "=Min(Width, Height) / 5" 
 Set vsoPage = ActivePage 
 
 'If there isn't an active page, set vsoPage 
 'to the first page of the active document. 
 If vsoPage Is Nothing Then 
 
 Set vsoPage = ActiveDocument.Pages(1) 
 
 End If 
 
 'Draw a rectangle on the active page. 
 Set vsoShape = vsoPage.DrawRectangle(1, 5, 5, 1) 
 
 'Add a scratch section and add a row to the scratch section. 
 vsoShape.AddSection visSectionScratch 
 vsoShape.AddRow visSectionScratch, visRowScratch, 0 
 
 'Set vsoCell to the Scratch.X1 cell and set its formula. 
 Set vsoCell = vsoShape.Cells(strBowCell) 
 vsoCell.formula = strBowFormula 
 
 'Bow in or curve the rectangle's lines by changing 
 'each row type from LineTo to ArcTo and entering the bow value. 
 For intCounter = 1 To 4 
 
 vsoShape.RowType(visSectionFirstComponent, visRowVertex + intCounter) = visTagArcTo 
 Set vsoCell = vsoShape.CellsSRC(visSectionFirstComponent, visRowVertex + intCounter, 2) 
 vsoCell.formula = "-" & strBowCell 
 
 Next intCounter 
 
End Sub

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

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

Share via