You must have an automation reference to the workbook or the worksheet.  Using Application Control pallette find the Property and Invode nodes and wire up the following, cascading the output of each node into the reference of the next:
Start with worksheet reference
Invoke Range
Property Entirecolumn
Property Columnwidth
Change Columnwidth to write and wire in the numeric value in pixels.
Michael
mmunroe@abcdefirm.com
http://www.abcdefirm.com