Propriedade Style.Cells (Visio)
Retorna um objeto Cell que representa uma célula ShapeSheet. Somente leitura.
expressão. Células (localeSpecificCellName)
Expressão Uma variável que representa um objeto Style .
Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
---|---|---|---|
localeSpecificCellName | Obrigatório | String | O nome de uma célula ShapeSheet. |
Cell
As células ("somestring") geram uma exceção de "fim inesperado do arquivo" se "somestring" não nomear uma célula real. Use a propriedade CellExists para determinar se existe uma célula com o nome "somestring".
As células nas seções Células Definidas pelo Usuário e Propriedades Personalizadas, de uma forma, pertencem a linhas cujos nomes foram atribuídos pelo usuário ou por um programa. Use a propriedade Cells para acessar células em linhas nomeadas.
Por exemplo, se "Linha_1" for o nome de uma linha na seção User-Defined Cells de uma forma, você pode usar essa instrução para acessar a primeira célula nessa linha (a célula na coluna zero, que mantém o nome da linha):
vsoCell = vsoShape.Cells("User.Row_1")
Use esta instrução para acessar a célula prompt no Row_1:
vsoCell = vsoShape.Cells("User.Row_1.Prompt")
Vamos supor que a Linha_1 esteja na seção Propriedades Personalizadas, em vez de na seção Células Definidas pelo Usuário. Use essa instrução para acessar a primeira célula nesta linha (a célula na coluna zero, que contém o nome da linha):
vsoCell = vsoShape.Cells("Prop.Row_1")
Use esta instrução para acessar outras células na linha:
vsoCell = vsoShape.Cells("Prop.Row_1.xxx")
onde xxx é uma dessas células: Label, Prompt, SortKey, Type, Format, Invisible, or Ask.
Observação
A partir do Microsoft Visio 2000, você pode usar nomes locais e universais para se referir a formas, mestres, documentos, páginas, linhas, complementos, células, hiperlinks, estilos, fontes, atalhos mestre, objetos UI e camadas do Visio. Quando um usuário nomeia uma forma, por exemplo, o usuário está especificando um nome local. A partir do Microsoft Office Visio 2003, a planilha ShapeSheet exibe apenas nomes universais em fórmulas de células e valores. (Em versões anteriores, os nomes universais não eram visíveis na interface do usuário.).
Como desenvolvedor, você poderá usar nomes universais em um programa quando não quiser alterar um nome a cada vez que uma solução for localizada. Use a propriedade Cells para obter um objeto Cell usando o nome local da célula. Use a propriedade CellsU para obter um objeto Cell usando o nome universal da célula.
Essa macro do Microsoft Visual Basic for Applications (VBA) mostra como usar a propriedade Cells para obter uma célula ShapeSheet particular por seu nome. Ela desenha um retângulo em uma página e transforma em arcos, ou curvas, as linhas do retângulo, alterando as linhas da forma para arcos. Isso é atingido mudando os tipos de linha ShapeSheet para cada lado do retângulo de LineTo para ArcTo e, em seguida, alterando os valores das células X e Y em cada uma dessas linhas.
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
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.