Hello,
I have some code that is supposed to adjust the row height to 13 for the first 200 rows as shown below:
Sub AdjustRowHeight(ByVal control As IRibbonControl)
Dim TargetWorksheet As Worksheet
For Each TargetWorksheet In Worksheets
Rows("1:200").RowHeight = 13
Next TargetWorksheet
End Sub
While this appears to work, it doesn't display as 13 when clicking on the Row Height divider on the left hand side of the screen. It shows as 12.75 instead. If I go into adjust Row Height it shows it is indeed 13. So while the code seems to work, it doesn't display the actual value correctly. Is this because it rounds to the nearest pixel value?
How can I make it show that is indeed 13 instead of 12.75 when hovering over the row divider?
Thanks in advance for any help!
I have some code that is supposed to adjust the row height to 13 for the first 200 rows as shown below:
Sub AdjustRowHeight(ByVal control As IRibbonControl)
Dim TargetWorksheet As Worksheet
For Each TargetWorksheet In Worksheets
Rows("1:200").RowHeight = 13
Next TargetWorksheet
End Sub
While this appears to work, it doesn't display as 13 when clicking on the Row Height divider on the left hand side of the screen. It shows as 12.75 instead. If I go into adjust Row Height it shows it is indeed 13. So while the code seems to work, it doesn't display the actual value correctly. Is this because it rounds to the nearest pixel value?
How can I make it show that is indeed 13 instead of 12.75 when hovering over the row divider?
Thanks in advance for any help!