Table of contents
TOC
Réduire la table des matières
Développer la table des matières

Characters.Shape, propriété (Visio)Characters.Shape Property (Visio)

office 365 dev account|Dernière mise à jour: 14/03/2018
|
2 Collaborateurs

Renvoie l’objet Shape qui possède une cellule , caractères , objet Row ou Section ou qui est associé à un objet Hyperlink ou OLEObject ou à la collection de liens hypertexte . En lecture seule.Returns the Shape object that owns a Cell , Characters , Row , or Section object or that is associated with a Hyperlink or OLEObject object or with the Hyperlinks collection. Read-only.

SyntaxeSyntax

expression . Formeexpression . Shape

expression Variable qui représente un objet Characters .expression A variable that represents a Characters object.

Valeur renvoyéeReturn Value

ShapeShape

ExempleExample

Cette de Visual Basic pour Applications Microsoft macro (VBA) montre comment utiliser la propriété Shape pour obtenir les objets de forme possédant une cellule et un objet Characters .This Microsoft Visual Basic for Applications (VBA) macro shows how to use the Shape property to get the Shape objects that own a Cell and a Characters object.


Public Sub Shape_Example() 

 Dim vsoRectangle As Visio.Shape 
 Dim vsoOval As Visio.Shape 
 Dim vsoShapeFromCell As Visio.Shape 
 Dim vsoShapeFromCharacters As Visio.Shape 
 Dim vsoCell As Visio.Cell 
 Dim vsoCharacters As Visio.Characters 

 'Create 2 different shapes and add different text to each shape. 
 Set vsoRectangle = ActivePage.DrawRectangle(2, 3, 5, 4) 
 Set vsoOval = ActivePage.DrawOval(2, 5, 5, 7) 
 vsoRectangle.Text = "Rectangle Shape" 
 vsoOval.Text = "Oval Shape" 

 'Get a Cell object from the first shape. 
 Set vsoCell = vsoRectangle.Cells("Width") 

 'Get a Characters object from the second shape. 
 Set vsoCharacters = vsoOval.Characters 

 'Use the Shape property to get the Shape object. 
 Set vsoShapeFromCell = vsoCell.Shape 
 Set vsoShapeFromCharacters = vsoCharacters.Shape 

 'Use each shape's text to verify the proper Shape 
 'object was returned. 
 Debug.Print vsoShapeFromCell.Text 
 Debug.Print vsoShapeFromCharacters.Text 

End Sub
© 2018 Microsoft