Propriedade Shape.RowCount (Visio)

Retorna o número de linhas em uma seção ShapeSheet. Somente leitura.

Sintaxe

expression. RowCount( _Section_ )

Expressão Uma variável que representa um objeto Shape .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Section	Obrigatório	Integer	A seção cujas linhas devem ser contadas.

Valor de retorno

Inteiro

Comentários

O argumento Section deve ser uma constante de seção. Para obter uma lista de constantes de seção, consulte o método AddSection.

Use a propriedade RowCount primeiramente com seções que contêm um número variável de linhas, como as seções Geometry e Connection Points. Para seções com um número fixo de linhas, a propriedade RowCount retorna o número de linhas na seção que possui pelo menos uma célula cujo valor é local para a forma, em oposição às linhas cujas células são todas herdadas de um mestre ou estilo. Herdar de um mestre ou estilo é normalmente melhor porque o Microsoft Office Visio não precisa armazenar tanta informação. Na janela ShapeSheet, as células com valores locais aparecem em azul e as células com valores herdados aparecem em preto. Use a propriedade IsInherited para determinar se uma célula é herdada.

Exemplo

Esta macro do Microsoft Visual Basic for Applications (VBA) mostra como usar a propriedade RowCount para encontrar o número de linhas ShapeSheet pelas quais iterar.

Para executar essa macro, abra um desenho em branco e o estêncil Computadores e Monitores (Unidades Americanas) e insira um formulário de usuário que contenha um rótulo, uma caixa de texto e uma caixa de listagem. Defina a largura da caixa de listagem para 150.

Observação

O estêncil Computers and Monitors (US Units) está disponível somente no Microsoft Office Visio Professional.

 
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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.