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 section ShapeSheet.
Syntaxe
expression. DeleteSection( _Section_ )
Expression Variable qui représente un objet Shape .
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Section | Obligatoire | Integer | Index de la ligne à effacer. |
Valeur renvoyée
Aucune
Remarques
Lorsque vous supprimez une section de feuille ShapeSheet, toutes les lignes qu'elle contient sont supprimées automatiquement. Si la section indiquée n'existe pas, rien n'est supprimé et aucune erreur n'est générée.
Si une section Geometry est supprimée, chaque section Geometry qui suit se déplace car elles sont indexées et il ne peut y avoir d'écart dans une plage indexée.
Vous pouvez supprimer n'importe quelle section, sauf celle représentée par visSectionObject (vous pouvez en revanche supprimer des lignes au sein de cette section).
Les valeurs d’index de section sont déclarées dans la bibliothèque de types Visio dans VisSectionIndices.
Exemple
La macro Microsoft Visual Basic pour Applications (VBA) ci-dessous illustre comment supprimer une section ShapeSheet.
Public Sub DeleteSection_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
'Delete the scratch section from the ShapeSheet.
vsoShape.DeleteSection visSectionScratch
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.