Свойство Cell.Column (Publisher)
Возвращает значение Long , представляющее столбец таблицы, содержащий указанную ячейку. Только для чтения.
Синтаксис
expression. Столбца
Выражение Переменная, представляющая объект Cell .
Пример
В этом примере к активной публикации добавляется страница, на ней создается таблица и по диагонали разделяются все ячейки на четные столбцы.
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 и обратная связь.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по