PowerPoint) (Columns 物件

一組 資料行 代表表格中的欄的物件。

範例

使用 Columns 屬性可傳回 Columns 集合。 本範例會在使用中簡報中找到的第一個表格、 計數 ] 欄 中的物件數目的 Columns 集合，及向使用者顯示的資訊。

Dim ColCount, sl, sh As Integer

With ActivePresentation
    For sl = 1 To .Slides.Count
        For sh = 1 To .Slides(sl).Shapes.Count
            If .Slides(sl).Shapes(sh).HasTable Then
                ColCount = .Slides(sl).Shapes(sh) _
                    .Table.Columns.Count
                MsgBox "Shape " & sh & " on slide " & sl & _
                    " contains the first table and has " & _
                    ColCount & " columns."
                Exit Sub
            End If
        Next
    Next
End With

使用Add方法可將欄新增至表格。 本範例會在現有的表格中建立資料行並將新欄的寬度設為 72 點 (1 英吋)。

With ActivePresentation.Slides(2).Shapes(5).Table

    .Columns.Add.Width = 72

End With

使用 資料行 (index) 可傳回單一 Column 物件。 Index 代表資料行在 Columns 集合中的位置 (通常由左至右計算;雖然 TableDirection屬性可以反轉此) 。 本範例會選取第二張投影片上第五個圖案中第一欄的表格。

ActivePresentation.Slides(2).Shapes(5).Table.Columns(1).Select

另請參閱

PowerPoint 物件模型參考資料

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。