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.
Ajoute une nouvelle section à une feuille de calcul ShapeSheet.
Syntaxe
expression.
AddSection( _Section_ )
expression Une variable qui représente uneForme d’objet.
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Section | Obligatoire | Integer | Type de section à ajouter. |
Valeur renvoyée
Entier
Remarques
La méthode AddSection est fréquemment utilisée pour ajouter une ou plusieurs sections Geometry à une forme. Vous pouvez également utiliser AddSection pour ajouter d'autres sections à une forme (Scratch, Controls, Connection Points, Actions, User-Defined Cells et ShapeData, par exemple). La méthode AddSection renvoie l'index logique de la section ajoutée.
Les sections que vous pouvez ajouter à une forme correspondent aux choix affichés par la boîte de dialogue Insérer une section lorsque la forme est affichée dans une fenêtre Feuille ShapeSheet.
Si vous tentez d'ajouter une section autre que Geometry à une forme disposant déjà de la section que vous essayez d'ajouter, la méthode AddSection provoque une exception. La propriété SectionExists permet de déterminer si une forme dispose déjà d'une section avec un index logique donné.
Les nouvelles sections ne comportent aucune ligne. Vous pouvez toutefois leur en ajouter à l'aide de la méthode AddRow.
La propriété GeometryCount renvoie le nombre de sections Geometry incluses dans une forme. Utilisez le code suivant pour ajouter une section Geometry à une forme :
Shape.AddSection(visSectionFirstComponent + i)
où 0 <= i <visSectionLastComponent - visSectionFirstComponent.
Lorsque 0 <= i <Shape.GeometryCount, la nouvelle section précède l’actuelle i’ième section Geometry.
Lorsque Shape.GeometryCount<= i <visSectionLastComponent - visSectionFirstComponent, la nouvelle section est la dernière.
Exemple
La macro suivante indique comment ajouter une nouvelle section Scratch à la feuille ShapeSheet d'un rectangle. Avant d'exécuter cette macro, assurez-vous qu'une page de dessin est active dans la fenêtre de Visio.
Public Sub AddSection_Example()
Dim vsoPage As Visio.Page
Dim vsoShape As Visio.Shape
'Get the active page.
Set vsoPage = ActivePage
'Draw a rectangle on the active page.
Set vsoShape = vsoPage.DrawRectangle(1, 5, 5, 1)
'Add a scratch section to the ShapeSheet.
vsoShape.AddSection 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.