Propriété style. Cells (Visio)Style.Cells property (Visio)

Renvoie un objet Cell qui représente une cellule de feuille ShapeSheet.Returns a Cell object that represents a ShapeSheet cell. En lecture seule.Read-only.

SyntaxeSyntax

expression. Cellules (localeSpecificCellName)expression.Cells (localeSpecificCellName)

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

ParamètresParameters

NomName Requis/FacultatifRequired/Optional Type de donnéesData type DescriptionDescription
localeSpecificCellNamelocaleSpecificCellName ObligatoireRequired StringString Nom d'une cellule de feuille ShapeSheet.The name of a ShapeSheet cell.

Valeur renvoyéeReturn value

CellCell

RemarquesRemarks

Cellules («une_chaîne») génère une exception «fin inattendue du fichier» si «une_chaîne» ne nomme pas une cellule réelle.Cells ("somestring") raises an "Unexpected end of file" exception if "somestring" does not name an actual cell. Vous pouvez utiliser la propriété CellExists pour déterminer si une cellule du nom « une_chaîne » existe.You can use the CellExists property to determine if a cell with the name "somestring" exists.

Les cellules des sections User-Defined Cells et Shape Data d’une forme appartiennent à des lignes dont les noms ont été définis par l’utilisateur ou par un programme.The cells in a shape's User-Defined Cells and Shape Data sections belong to rows whose names have been assigned by the user or a program. Vous pouvez utiliser la **** propriété Cells pour accéder aux cellules des lignes nommées.You can use the Cells property to access cells in named rows.

Par exemple, si « Row_1 » correspond au nom d'une ligne de la section User-Defined Cells d'une forme, vous pouvez accéder à la première cellule de cette ligne (la cellule de la colonne 0, contenant le nom de la ligne) à l'aide de l'instruction suivante :For example, if "Row_1" is the name of a row in a shape's User-Defined Cells section, you can use this statement to access the first cell in this row (the cell in column zero, which holds the name of the row):

vsoCell = vsoShape.Cells("User.Row_1")

Vous pouvez accéder à la cellule Prompt de Row_1 à l'aide de l'instruction suivante :You can use this statement to access the prompt cell in Row_1:

vsoCell = vsoShape.Cells("User.Row_1.Prompt")

Supposons ensuite que Row_1 se trouve dans la section Shape Data et non dans la section User-Defined Cells.Next, assume that Row_1 is in the Shape Data section instead of the User- Defined Cells section. Vous pouvez accéder à la première cellule de cette ligne (la cellule de la colonne 0, contenant le nom de la ligne) à l’aide de l’instruction suivante :You can use this statement to access the first cell in this row (the cell in column zero, which holds the name of the row):

vsoCell = vsoShape.Cells("Prop.Row_1")

Vous pouvez accéder à d'autres cellules de la ligne à l'aide de l'instruction suivante :You can use this statement to access other cells in the row:

vsoCell = vsoShape.Cells("Prop.Row_1.xxx")

xxx est l’une des cellules suivantes: label, prompt, SortKey, type, format, invisible ou Ask.where xxx is one of these cells: Label, Prompt, SortKey, Type, Format, Invisible, or Ask.

Notes

À partir de Microsoft Office Visio 2000, vous pouvez utiliser des noms locaux et universels pour vous reporter aux formes, formes de base, documents, pages, lignes, modules complémentaires, cellules, liens hypertexte, styles, polices, raccourcis de formes de base, objets UI et aux calques Visio.Beginning with Microsoft Visio 2000, you can use both local and universal names to refer to Visio shapes, masters, documents, pages, rows, add-ons, cells, hyperlinks, styles, fonts, master shortcuts, UI objects, and layers. Lorsqu'un utilisateur nomme une forme, par exemple, il définit un nom local.When a user names a shape, for example, the user is specifying a local name. À partir de Microsoft Office Visio 2003, la feuille de calcul ShapeSheet affiche uniquement les noms universels des formules et valeurs de cellules.Beginning with Microsoft Office Visio 2003, the ShapeSheet spreadsheet displays only universal names in cell formulas and values. (Dans les versions antérieures, les noms universels n’étaient pas visibles dans l’interface utilisateur.)(In prior versions, universal names were not visible in the user interface.)

Si vous êtes développeur, vous pouvez utiliser les noms universels dans un programme lorsque vous ne voulez pas modifier un nom chaque fois qu'une solution est localisée.As a developer, you can use universal names in a program when you don't want to change a name each time a solution is localized. Utilisez la propriété Cells pour obtenir un objet Cell à l'aide de son nom local.Use the Cells property to get a Cell object by using the cell's local name. Utilisez la propriété CellsU pour obtenir un objet Cell à l'aide de son nom universel.Use the CellsU property to get a Cell object by using the cell's universal name.

ExempleExample

Cette macro Microsoft Visual Basic pour applications (VBA) indique comment utiliser la propriété Cells pour obtenir une cellule ShapeSheet particulière par son nom.This Microsoft Visual Basic for Applications (VBA) macro shows how to use the Cells property to get a particular ShapeSheet cell by its name. Elle dessine un rectangle sur une page et courbe ses traits jusqu'à ce qu'ils deviennent des arcs.It draws a rectangle on a page and bows, or curves the lines of the rectangle by changing the shape's lines to arcs. C'est possible en changeant les valeurs des cellules X et Y dans chacune des cellules et en changeant les types de ligne ShapeSheet, et ce, pour chaque côté du rectangle afin qu'elles passent de LineTo à ArcTo.This is accomplished by changing the ShapeSheet row types for each side of the rectangle from LineTo to ArcTo and then changing the values of the X and Y cells in each of these rows.

 
Public Sub Cells_Example() 
 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 Dim vsoCell As Visio.Cell 
 Dim strBowCell As String 
 Dim strBowFormula As String 
 Dim intCounter As Integer 
 
 'Set the value of the strBowCell string. 
 strBowCell = "Scratch.X1" 
 
 'Set the value of the strBowFormula string. 
 strBowFormula = "=Min(Width, Height) / 5" 
 
 Set vsoPage = ActivePage 
 
 'If there isn't an active page, set vsoPage 
 '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 and add a row to the scratch section. 
 vsoShape.AddSection visSectionScratch 
 vsoShape.AddRow visSectionScratch, visRowScratch, 0 
 
 'Set vsoCell to the Scratch.X1 cell and set its formula. 
 Set vsoCell = vsoShape.Cells(strBowCell) 
 vsoCell.Formula = strBowFormula 
 
 'Bow in or curve the rectangle's lines by changing 
 'each row type from LineTo to ArcTo and entering the bow value. 
 For intCounter = 1 To 4 
 vsoShape.RowType(visSectionFirstComponent, visRowVertex + intCounter) = visTagArcTo 
 Set vsoCell = vsoShape.CellsSRC(visSectionFirstComponent, visRowVertex + intCounter, 2) 
 vsoCell.Formula = "-" & strBowCell 
 Next intCounter 
 
End Sub

Assistance et commentairesSupport and feedback

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ?Have questions or feedback about Office VBA or this 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.