Shape.DeleteSection, méthode (Visio)

Supprime une section ShapeSheet.

Syntaxe

expression. DeleteSection( _Section_ )

Expression Variable qui représente un objet Shape .

Parameters

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.