次の方法で共有


Table.Columns プロパティ (PowerPoint)

表の中にあるすべての列を表す Columns コレクションを取得します。 値の取得のみ可能です。

構文

Table オブジェクトを表す変数。

戻り値

段組み

注釈

コレクションの 1 つのメンバーを返す方法については、「コレクション からオブジェクトを返す」を参照してください。

次の使用例は、作業中のプレゼンテーションに含まれる最初の表の図形番号、スライド番号、および表の列数を表示します。

Dim ColCount As Integer

Dim sl As Integer

Dim 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

次の使用例は、選択した図形に表が含まれるかどうかを調べます。 表がある場合、その表の列 1 の幅を 72 ポイント (1 インチ) に設定します。

With ActiveWindow.Selection.ShapeRange

    If .HasTable = True Then

       .Table.Columns(1).Width = 72

    End If

End With

関連項目

テーブル オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。