Solved

MSFlexGrid ColumnWidth

Posted on 2004-08-22
3
412 Views
Last Modified: 2013-12-25
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
0
Comment
Question by:kgerb
  • 2
3 Comments
 
LVL 6

Accepted Solution

by:
PePi earned 400 total points
ID: 11872349
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
 
LVL 12

Author Comment

by:kgerb
ID: 11873047
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
 
LVL 12

Author Comment

by:kgerb
ID: 11876896
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

Featured Post

Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

705 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now