TextFrame.ColumnWidth

Property ColumnWidth(Index As Long) As Double

The ColumnWidth property returns the width of the specified column.

The ColumnWidth property returns a read-only value.


Parameters	Description
Index	Specifies the column by its index number

The following code example links frames of paragraph text. It then creates three columns in the first frame and displays 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