Ler em inglês

Compartilhar via


Propriedade Cell.Diagonal (Publisher)

Define ou retorna uma constante PbCellDiagonalType que representa uma célula dividida diagonalmente. Leitura/gravação.

Sintaxe

expressão. Diagonal

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

Valor de retorno

PbCellDiagonalType

Comentários

O valor da propriedade Diagonal pode ser uma das constantes PbCellDiagonalType declaradas na biblioteca de tipos do Microsoft Publisher.

Exemplo

Este exemplo adiciona uma página à publicação ativa, cria uma tabela na nova página e divide diagonalmente todas as células de colunas com números pares.

Sub CreateNewTable() 
 
 Dim pgeNew As Page 
 Dim shpTable As Shape 
 Dim tblNew As Table 
 Dim celTable As Cell 
 Dim rowTable As Row 
 
 'Creates a new document with a five-row by five-column table 
 Set pgeNew = ActiveDocument.Pages.Add(Count:=1, After:=1) 
 Set shpTable = pgeNew.Shapes.AddTable(NumRows:=5, NumColumns:=5, _ 
 Left:=72, Top:=72, Width:=468, Height:=100) 
 Set tblNew = shpTable.Table 
 
 'Inserts a diagonal split into all cells in even-numbered columns 
 For Each rowTable In tblNew.Rows 
 For Each celTable In rowTable.Cells 
 If celTable.Column Mod 2 = 0 Then 
 celTable.Diagonal = pbTableCellDiagonalUp 
 End If 
 Next celTable 
 Next rowTable 
 
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.