Change Column Width

[Time_Runner]

Or this will work as well

Macro

Code:

Copy      Help

Acc ColumnA=acc("" "CLIENT" win("Microsoft Excel -" "XLMAIN") "EXCEL7" "" 0x1001)
ColumnA.Mouse(1 59 10)

Acc Width=acc("Width..." "MENUITEM" win("Microsoft Excel -" "XLMAIN") "" "" 0x1001)
Width.DoDefaultAction

act win("Microsoft Excel -" "XLMAIN")

str SizeOfColumnA.getwintext(id(19 win("Column Width" "bosa_sdm_XL9")))
VARIANT NewSizeOfColumnA

NewSizeOfColumnA.mul(SizeOfColumnA 2)
_s=NewSizeOfColumnA; _s.setwintext(id(19 win("Column Width" "bosa_sdm_XL9")))

Acc PushButtonOk=acc("OK" "PUSHBUTTON" win("Column Width" "bosa_sdm_XL9") "bosa_sdm_XL9" "" 0x1001)
PushButtonOk.DoDefaultAction

Now you have two examples.