Propriété Shape.RowCount (Visio)

Renvoie le nombre de lignes dans une section ShapeSheet. En lecture seule.

Syntaxe

expression. RowCount( _Section_ )

Expression Variable qui représente un objet Shape .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Section	Obligatoire	Integer	Section dont les lignes sont à compter.

Valeur renvoyée

Entier

Remarques

L'argument Section doit être une constante de section. Pour obtenir la liste des constantes de section, reportez-vous à la méthode AddSection.

Utilisez la propriété RowCount principalement avec les sections qui contiennent un nombre variable de lignes, telles que les sections Geometry et Connection Points. Pour les sections qui ont un nombre fixe de lignes, la propriété RowCount renvoie le nombre de lignes de la section qui possèdent au moins une cellule dont la valeur est locale à la forme, par opposition aux lignes dont les cellules sont toutes héritées d’un style maître ou d’un style. Il est généralement préférable d’hériter d’un maître ou d’un style, car Microsoft Office Visio n’a pas besoin de stocker autant d’informations. Dans la fenêtre Feuille ShapeSheet, les cellules avec des valeurs locales apparaissent en bleu et les cellules avec des valeurs héritées apparaissent en noir. Utilisez la propriété IsInherited pour déterminer si une cellule est héritée.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment utiliser la propriété RowCount pour rechercher le nombre de lignes ShapeSheet sur lesquelles effectuer une itération.

Pour exécuter cette macro, ouvrez un dessin vierge et le gabarit Ordinateurs et moniteurs (unités américaines), puis insérez un formulaire utilisateur contenant un intitulé, une zone de texte et une zone de liste. Définissez la largeur de la zone de liste sur 150.

Remarque

Le gabarit Ordinateurs et moniteurs (unités américaines) n'est disponible que dans 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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.