Propiedad Cell.Diagonal (Publisher)

Establece o devuelve una constante PbCellDiagonalType que representa una celda que se divide diagonalmente. Lectura y escritura.

Sintaxis

expresión. Diagonal

expresión Variable que representa un objeto Cell .

Valor devuelto

PbCellDiagonalType

Observaciones

El valor de la propiedad Diagonal puede ser una de las constantes PbCellDiagonalType declaradas en la biblioteca de tipos de Microsoft Publisher.

Ejemplo

En este ejemplo se agrega una pagina a la publicación activa, se crea una tabla en ella y en las columnas pares se dividen en diagonal todas las celdas.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.