Свойство Cell.Diagonal (Publisher)

Статья
04/07/2023

Задает или возвращает константу PbCellDiagonalType , представляющую ячейку, разделенную по диагонали. Для чтения и записи.

Синтаксис

expression. Диагональ

Выражение Переменная, представляющая объект Cell .

Возвращаемое значение

PbCellDiagonalType

Замечания

Значение свойства Diagonal может быть одной из констант PbCellDiagonalType , объявленных в библиотеке типов издателя Майкрософт.

Пример

В этом примере к активной публикации добавляется страница, на ней создается таблица и по диагонали разделяются все ячейки на четные столбцы.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через