MSFlexGrid ColumnWidth

I am using a MSFlexGrid in an Excel VBA App and I'm having some trouble setting the column width of the final column.  The number of columns depends on the user, and the widths of these columns equals the width of a corresponding column in an Excel Spreadsheet.  Now, say the user wants there to be 5 columns in the flex grid.  The total width of all these columns is 6000 twips (5000 for the first four and 1000 for the last one).  My problem is that the width of my grid control is 12000 twips and I want to extend the width of the last column to take up the extra space.  So, I want the last column to be 7000 wide instead of 1000.  All I should have to do is, after I get done filling the columns, test whether the sum of the widths of the columns is less than the width of the grid control and if it isn't, make the width of the last column equal to the difference.  Pretty simple right?  Well, it's not working and I don't know why.  It always leaves the last column short of the edge of the grid by an inconsistent amount (approx 400 twips).  Is there a better way to do this?  I've been looking for a setting that will make the width of the columns at least equal to the width of the grid control but I don't think it exists.  Here's what I have so far

With Grid
    .Clear
    .Cols = iCols
    For Each Col In SrchCols
        .TextMatrix(0, i) = ActiveSheet.Cells(HeadRow, Col).Value
        .ColWidth(i) = ActiveSheet.Columns(Col).Width * 20
        ColWidth = ColWidth + .ColWidth(i)
        i = i + 1
    Next Col
    If ColWidth < GridWidth Then
        .ColWidth(.Cols - 1) = GridWidth - ColWidth
    End If
End With

Thanks
Kyle
LVL 12
kgerbChief EngineerAsked:
Who is Participating?
 
PePiCommented:
setting the .ColWidth to 1000 won't exactly set that column's width to 1000. if after setting the width to 1000, try and see the value of the width for that column. it will give 1005. that's probably what's been screwing your procedure. plus, if your flexgrid's appearance is set to 3-D, you have to take into account the little drop on the border.

so if the appearnce is 3-D, you have to offset the flexgrid's width by 95. to compute for the total column width (except for the last one, since you'll be resetting this and assuming you have more than 2 columns):

With Grid
    'compute column width except last column
    For i = 0 To .Cols - 2
        ColWidth = ColWidth + .ColWidth(i)
    Next i

    'set last column
    If ColWidth < (.Width - 95) Then               'remove 95 twips to augment the border if appearance is 3-D
        'set the last column
        .Colwidth(.Cols -1) = .Width - ColWidth - 95
    End If
End With

hope this is what you're looking for.


0
 
kgerbChief EngineerAuthor Commented:
PePi,
Thanks for your response.  My app is saved on my computer at home so I'll check your code out tonight and get back to you.  Thanks again

Kyle
0
 
kgerbChief EngineerAuthor Commented:
Well, I'm not sure why but I am still left with about 400 twips from the right edge of my last column to the edge of the grid control.  The wierd thing is that it's not a consistent offset that I can account for.  The distance changes each time I run the macro?
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.