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

Возвращает количество строк в разделе таблицы фигур. Только для чтения.

Синтаксис

выражение. RowCount( _Section_ )

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

Параметры

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

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

Целое число

Замечания

Аргумент Section должен быть константой раздела. Список констант разделов см. в методе AddSection .

Свойство RowCount используется в основном с разделами, содержащими переменное количество строк, например с разделами Geometry и Connection Points. Для разделов, имеющих фиксированное число строк, свойство RowCount возвращает количество строк в разделе, которое содержит по крайней мере одну ячейку, значение которой является локальным по фигуре, в отличие от строк, ячейки которых наследуются от образца или стиля. Наследование от образца или стиля обычно лучше, так как в Microsoft Office Visio не требуется хранить столько сведений. В окне Таблица фигур ячейки с локальными значениями отображаются синим цветом, а ячейки с унаследованными значениями — черным цветом. Используйте свойство IsInherited , чтобы определить, наследуется ли ячейка.

Пример

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

Чтобы запустить этот макрос, откройте пустой документ и набор элементов Компьютеры и мониторы (единицы измерения США), а затем вставьте пользовательскую форму, содержащую метку, текстовое поле и поле списка. Задайте для поля списка ширину 150.

Примечание.

Набор элементов компьютеров и мониторов (единиц США) доступен только в Microsoft Office Visio профессиональный.

 
Public Sub RowCount_Example() 
 
 Dim vsoStencil As Visio.Document 
 Dim vsoMaster As Visio.Master 
 Dim vsoPages As Visio.Pages 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 Dim vsoCell As Visio.Cell 
 Dim intRows As Integer 
 Dim intCounter As Integer 
 
 'Get the Pages collection for the document. 
 'ThisDocument refers to the current document. 
 Set vsoPages = ThisDocument.Pages 
 
 'Get a reference to the first page of the Pages collection. 
 Set vsoPage = vsoPages(1) 
 
 'Get the Document object for the stencil. 
 Set vsoStencil = Documents("COMPS_U.VSS") 
 
 'Get the Master object for the desktop PC shape. 
 Set vsoMaster = vsoStencil.Masters("PC") 
 
 'Drop the shape in the approximate middle of the page. 
 'Coordinates passed to the Drop method are always in inches. 
 'The Drop method returns a reference to the new shape object. 
 Set vsoShape = vsoPage.Drop(vsoMaster, 4.25, 5.5) 
 
 'This example shows two methods of extracting custom 
 'properties. The first method retrieves the value of a custom 
 'property by name. 
 'Note that Prop.Manufacturer implies Prop.Manufacturer.Value. 
 Set vsoCell = vsoShape.Cells("Prop.Manufacturer") 
 
 'Get the cell value as a string 
 'and put it into the text box on the form. 
 UserForm1.TextBox1.Text = vsoCell.ResultStr(Visio.visNone) 
 
 'Set the caption of the label. 
 UserForm1.Label1.Caption = "Prop.Manufacturer" 
 
 'The second method of accessing custom properties uses 
 'section, row, cell. This method is best when you want 
 'to iterate through all the properties. 
 intRows = vsoShape.RowCount(Visio.visSectionProp) 
 
 'Make sure the list box is cleared. 
 UserForm1.ListBox1.Clear 
 
 'Loop through all the rows and add the value of Prop.Manufacturer 
 'to the list box. Rows are numbered starting with 0. 
 For intCounter = 0 To intRows - 1 
 Set vsoCell = vsoShape.CellsSRC(Visio.visSectionProp, intCounter, visCustPropsValue) 
 UserForm1.ListBox1.AddItem vsoCell.LocalName & vbTab & _ 
 vsoCell.ResultStr(Visio.visNone) 
 Next intCounter 
 
 'Display the user form. 
 UserForm1.Show 
 
End Sub

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

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