TextFrame.ColumnWidth

Property ColumnWidth(Index As Long) As Double

Member of TextFrame

The ColumnWidth property returns the width of a specified paragraph-text column.

The ColumnWidth property returns a read-only value.


Parameter	Description
Index	Specifies the column by its index number

The following VBA example links frames of paragraph text. It then creates three columns in the first frame, displaying the width of each column.

Sub Test()

Dim s As Shape

Dim s1 As Shape

Dim s2 As Shape

Dim t As Text

Dim f As TextFrame

Dim d As Document

Set d = CreateDocument

Set s = d.ActiveLayer.CreateParagraphText(2, 2, 5, 5, String$(750, "Z"))

Set s1 = d.ActiveLayer.CreateParagraphText(5, 5, 8, 8)

Set s2 = d.ActiveLayer.CreateParagraphText(8, 8, 10, 10)

Set t = s.Text

' Link the frames together

t.Frame.LinkTo s1

s1.Text.Frame.LinkTo s2

' Get the first frame

Set f = t.Frames(1)

' Set the columns

f.SetColumns 3, False, Array(1, 0.3, 1.4, 0.3, 1.5)

MsgBox "Column 1 Width: " & f.ColumnWidth(1) & vbCr & _

"Column 2 Width: " & f.ColumnWidth(2) & vbCr & _

"Column 3 Width: " & f.ColumnWidth(3)

End Sub