P
Patricia Shannon
I'm putting this in the New Users section, because it will probably be
obvious to experienced users, but when I finally figured it out, it was of
enormous help to me.
I have a bunch of spreadsheets that are being used as a database. When
comparing the data in the spreadsheets to the original data, I had a hard
time because the spreadsheet rows didn't correspond in size to the original
data. I tried adjusting the font sizes in both, but couldn't get the rows to
line up.
I finally found that the thing to do is to set the Height of the spreadsheet
row to the font size of the other file. Then the font size can be 1 less for
ease of reading it. I found that the Distributed orientation worked best.
Note that font sizes are specified as the height in points. There are 72
points in an inch.
This is part of a macro that sets up my files for reviewing.
Sub D1FormatForReview()
'
' Macro recorded 3/29/2006 by Patricia Shannon
Cells.Select
With Selection
With .Font
.Name = "Courier New"
.Size = D1FontSize - 1
End With
.RowHeight = D1FontSize
.VerticalAlignment = xlDistributed
.ShrinkToFit = False
End With
Cells.Select
Selection.Columns.AutoFit
Columns("B").Select
Selection.EntireColumn.Hidden = True
End Sub
obvious to experienced users, but when I finally figured it out, it was of
enormous help to me.
I have a bunch of spreadsheets that are being used as a database. When
comparing the data in the spreadsheets to the original data, I had a hard
time because the spreadsheet rows didn't correspond in size to the original
data. I tried adjusting the font sizes in both, but couldn't get the rows to
line up.
I finally found that the thing to do is to set the Height of the spreadsheet
row to the font size of the other file. Then the font size can be 1 less for
ease of reading it. I found that the Distributed orientation worked best.
Note that font sizes are specified as the height in points. There are 72
points in an inch.
This is part of a macro that sets up my files for reviewing.
Sub D1FormatForReview()
'
' Macro recorded 3/29/2006 by Patricia Shannon
Cells.Select
With Selection
With .Font
.Name = "Courier New"
.Size = D1FontSize - 1
End With
.RowHeight = D1FontSize
.VerticalAlignment = xlDistributed
.ShrinkToFit = False
End With
Cells.Select
Selection.Columns.AutoFit
Columns("B").Select
Selection.EntireColumn.Hidden = True
End Sub