Setting columnwidths

Hi all,

I've got one that has stumped me, I'm tring to set my column widths so that
they fit to the window size however when using different screen sizes and
different pixel sizes I can't get it working in all cases. I am currently
using the function application.width to grab the window size, if anyone can
help me that would be greatly appreciated.

Jason Zischke

Jason,
Depending what you are trying to achieve, Window.UsableWidth (in points) may
be what you are after.
Then .Column.Width (in points) for each column that you wish to adjust.

NickHK

"Jason Zischke" <[email protected]> wrote in message
news:[email protected]...
> Hi all,
>
> I've got one that has stumped me, I'm tring to set my column widths so
that
> they fit to the window size however when using different screen sizes and
> different pixel sizes I can't get it working in all cases. I am currently
> using the function application.width to grab the window size, if anyone
can
> help me that would be greatly appreciated.
>
> Jason Zischke

Dear NickHK

That sounds about that might work but how do do the column width in points ?

Jason

"NickHK" wrote:

> Jason,
> Depending what you are trying to achieve, Window.UsableWidth (in points) may
> be what you are after.
> Then .Column.Width (in points) for each column that you wish to adjust.
>
> NickHK
>
> "Jason Zischke" <[email protected]> wrote in message
> news:[email protected]...
> > Hi all,
> >
> > I've got one that has stumped me, I'm tring to set my column widths so
> that
> > they fit to the window size however when using different screen sizes and
> > different pixel sizes I can't get it working in all cases. I am currently
> > using the function application.width to grab the window size, if anyone
> can
> > help me that would be greatly appreciated.
> >
> > Jason Zischke
>
>
>

Jason,
Something like this, converting from points to the units of ColumnWidth.
<From Help>
One unit of column width is equal to the width of one character in the
Normal style
</From Help>


Private Sub CommandButton1_Click()
Dim ColWidth As Single
Dim Factor As Single
Dim i As Long
'The range of columns you want to fit in the window
With Range("rngColumns")
ColWidth = ActiveWindow.UsableWidth / .Columns.Count
Factor = .Columns(1).Width / .Columns(1).ColumnWidth
For i = 1 To .Columns.Count
.Columns(i).ColumnWidth = ColWidth / Factor
Next
End With

End Sub

NickHK

"Jason Zischke" <[email protected]> wrote in message
news:[email protected]...
> Dear NickHK
>
> That sounds about that might work but how do do the column width in points
?
>
> Jason
>
> "NickHK" wrote:
>
> > Jason,
> > Depending what you are trying to achieve, Window.UsableWidth (in points)
may
> > be what you are after.
> > Then .Column.Width (in points) for each column that you wish to adjust.
> >
> > NickHK
> >
> > "Jason Zischke" <[email protected]> wrote in
message
> > news:[email protected]...
> > > Hi all,
> > >
> > > I've got one that has stumped me, I'm tring to set my column widths so
> > that
> > > they fit to the window size however when using different screen sizes
and
> > > different pixel sizes I can't get it working in all cases. I am
currently
> > > using the function application.width to grab the window size, if
anyone
> > can
> > > help me that would be greatly appreciated.
> > >
> > > Jason Zischke
> >
> >
> >

NickHK

Thanks, that is just what I was looking for.

Jason

"NickHK" wrote:

> Jason,
> Something like this, converting from points to the units of ColumnWidth.
> <From Help>
> One unit of column width is equal to the width of one character in the
> Normal style
> </From Help>
>
>
> Private Sub CommandButton1_Click()
> Dim ColWidth As Single
> Dim Factor As Single
> Dim i As Long
> 'The range of columns you want to fit in the window
> With Range("rngColumns")
> ColWidth = ActiveWindow.UsableWidth / .Columns.Count
> Factor = .Columns(1).Width / .Columns(1).ColumnWidth
> For i = 1 To .Columns.Count
> .Columns(i).ColumnWidth = ColWidth / Factor
> Next
> End With
>
> End Sub
>
> NickHK
>
> "Jason Zischke" <[email protected]> wrote in message
> news:[email protected]...
> > Dear NickHK
> >
> > That sounds about that might work but how do do the column width in points
> ?
> >
> > Jason
> >
> > "NickHK" wrote:
> >
> > > Jason,
> > > Depending what you are trying to achieve, Window.UsableWidth (in points)
> may
> > > be what you are after.
> > > Then .Column.Width (in points) for each column that you wish to adjust.
> > >
> > > NickHK
> > >
> > > "Jason Zischke" <[email protected]> wrote in
> message
> > > news:[email protected]...
> > > > Hi all,
> > > >
> > > > I've got one that has stumped me, I'm tring to set my column widths so
> > > that
> > > > they fit to the window size however when using different screen sizes
> and
> > > > different pixel sizes I can't get it working in all cases. I am
> currently
> > > > using the function application.width to grab the window size, if
> anyone
> > > can
> > > > help me that would be greatly appreciated.
> > > >
> > > > Jason Zischke
> > >
> > >
> > >
>
>
>