View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
KenThompson KenThompson is offline
external usenet poster
 
Posts: 2
Default Autofit/wraptext on vbLf problem


Hello,
I have a little formatting issue I am hoping one of you can help me with. I
have a vbs script that is creating and populating a spreadsheet that will
then be used to select some options and loaded into an API. One of the cells
is a list that needs to appear as a list with each list item on it's own line
within the cell.

I use this code to populate the cell:

'create vblf delimited list
strCyclist = Replace(WScript.Arguments.Item(6),",",vbLf)
'put it in the cell
objSheet.Cells(intDBRow,9) = strCyclist

I use this code to format:
With objSheet
.Columns("A:I").autofit
.Columns("B:B").Columnwidth = 45
.Columns("A:J").wraptext = True
End With
For Each intRow In objsheet.usedrange
intRow.EntireRow.AutoFit
Next


With my master plan here being that the autofit/wraptext would wrap that
cell on the vbLf. But it turns out that the autofit/autowrap is wrapping on
the first space in the text.

My idea kinda works in that if you enlarge the column width larger than a
single item in the list, then it wraps at the vbLf. So, I guess the wraptext
is working as expected but the autofit is sizing the column off the first
available space.

Any Ideas on how to get this to work as desired are welcome. Thanks in
advance.