Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
Solved

# MSFlexGrid ColumnWidth

Posted on 2004-08-22
Medium Priority
458 Views
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
.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
Question by:kgerb
[X]
###### Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

• Help others & share knowledge
• Earn cash & points
• 2

LVL 6

Accepted Solution

PePi earned 1600 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

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

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

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

There are many ways to remove duplicate entries in an SQL or Access database. Most make you temporarily insert an ID field, make a temp table and copy data back and forth, and/or are slow. Here is an easy way in VB6 using ADO to remove duplicate row…
When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
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…
###### Suggested Courses
Course of the Month9 days, 18 hours left to enroll