how can you reduce column width and row height by a percentage

[leecavturbo]

rows and columns are not the same through out the sheet so need to keep aspect but reduce all?

 

[XLfriend777]

Hi leecavturbo - The code below reduces the width of column A by 50%. It can easily be modified to whatever percentage you want and RowHeight can be similarly modified. Let me know if you need further assistance.

Sub leecavturbo_Column_Width()
    With ActiveSheet.Columns("A")
        .ColumnWidth = .ColumnWidth * 0.5
    End With
End Sub

 

[Teeroy]

You can easily do it with VBA.

Sub ScaleRowAndColSizes()
Dim snglScalefactor As Single, Rw, Col
snglScalefactor= .75

For Each Rw In ActiveSheet.UsedRange.Rows
    Rw.RowHeight = Rw.Height * snglScalefactor
Next
For Each Col In ActiveSheet.UsedRange.Columns
    Col.ColumnWidth = Col.ColumnWidth * snglScalefactor
Next
End Sub

 

[XLfriend777]

Teeroy - Very nice solution!

 

[leecavturbo]

Thx for the rapid reply.
What i didn't realise is that won't reduce cell content sizes too. Font
! ?

 

[Teeroy]

@leecavturbo, I don't understand your comment. Are you in fact asking to change the zoom level rather than the row and column sizes?

 

[Teeroy]

Teeroy - Very nice solution!

Thanks goesr, I find a simple solution is usually the best. Especially if I have to try and understand it 2 weeks later .

 

[leecavturbo]

@leecavturbo, I don't understand your comment. Are you in fact asking to change the zoom level rather than the row and column sizes?

I need the sheet to be at 100% zoom when it fills my screen.
Zoom doesn't cover why