Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Supprime une ligne d'une section dans une feuille de calcul ShapeSheet.
Syntaxe
expression.
DeleteRow( _Section_ , _Row_ )
expression Une variable qui représente uneForme d’objet.
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Section | Obligatoire | Integer | Index de la section qui contient la ligne. |
| Ligne | Obligatoire | Integer | Index de la ligne à effacer. |
Valeur renvoyée
Aucune
Remarques
La méthode DeleteRow permet de supprimer les lignes une à une dans une section de feuille ShapeSheet. Si les lignes de la section sont indexées, celles qui suivent la ligne supprimée changent de position. Si la ligne indiquée n'existe pas, aucune suppression n'est effectuée.
Vous ne devez pas supprimer les lignes qui définissent les caractéristiques fondamentales d’une forme, telles que la ligne points de terminaison 1D (visRowXForm1D) ou la ligne de composant (visRowComponent) ou la ligne MoveTo (visRowVertex + 0) dans une section Geometry. Vous pouvez supprimer des lignes à partir de sections représentées par visSectionCharacter, visSectionParagraph et visSectionTab.
Exemple
La macro Microsoft Visual Basic pour Applications (VBA) ci-dessous illustre comment utiliser la méthode DeleteRow pour supprimer une ligne ShapeSheet.
Public Sub DeleteRow_Example()
Dim vsoPage As Visio.Page
Dim vsoShape As Visio.Shape
'Get the active page.
Set vsoPage = ActivePage
'If there isn't an active page, set the Page object
'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 to the ShapeSheet of the rectangle.
vsoShape.AddSection visSectionScratch
'Add a row to the scratch section.
vsoShape.AddRow visSectionScratch, visRowScratch, 0
'Delete the row from the scratch section.
vsoShape.DeleteRow visSectionScratch, visRowScratch
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.