Propriedade Shape.RowType (Visio)

Obtém ou define o tipo de uma linha em uma seção Geometry, Connection Points, Controls ou Tabs ShapeSheet. Leitura/gravação.

Sintaxe

expressão. RowType (Seção, Linha)

Expressão Uma variável que representa um objeto Shape .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Section	Obrigatório	Integer	O índice da seção que contém a linha.
Linha	Obrigatório	Integer	O índice da linha.

Valor de retorno

Inteiro

Comentários

Após alterar o tipo de uma linha, o novo tipo de linha poderá ou não ter as mesmas células. Seu programa deverá fornecer as fórmulas adequadas para as células novas ou alteradas.

Você pode especificar o tipo de linha desejado configurando RowType igual a várias das seguintes constantes declaradas pela biblioteca de tipos do Visio no membro VisRowTags.

Constant	Valor
visTagComponent	137
visTagMoveTo	138
visTagLineTo	139
visTagArcTo	140
visTagInfiniteLine	141
visTagEllipse	143
visTagEllipticalArcTo	144
visTagSplineBeg	165
visTagSplineSpan	166
visTagPolylineTo	193
visTagNURBSTo	195
visTagTab0	136
visTagTab2	150
visTagTab10	151
visTagTab60	181
visTagCnnctPt	153
visTagCnnctNamed	185
visTagCtlPt	162
visTagCtlPtTip	170

Se um sinalizador de linha inadequado passar ou se a linha não existir, não ocorrerá nenhuma alteração e um erro será retornado.

Use a propriedade RowName para mudar de linhas Connection Points não nomeadas para nomeadas.

Consulte VisRowIndices para obter uma lista de constantes de linha válidas e VisRowTags para obter uma lista de constantes de marca de linha válidas.

Consulte VisSectionIndices para obter uma lista de constantes de seção válidas.

Exemplo

Esta macro do Microsoft Visual Basic for Applications (VBA) mostra como usar a propriedade RowType para alterar o tipo de uma linha ShapeSheet. 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 RowType_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

Suporte e comentários

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.