Propriedade Cell.Diagonal (Publisher)
Define ou retorna uma constante PbCellDiagonalType que representa uma célula dividida diagonalmente. Leitura/gravação.
expressão. Diagonal
Expressão Uma variável que representa um objeto Cell .
PbCellDiagonalType
O valor da propriedade Diagonal pode ser uma das constantes PbCellDiagonalType declaradas na biblioteca de tipos do Microsoft Publisher.
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
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.