Ask a new question

Auto fit Row Height is not sufficient

The Auto fit Row Height is not sufficient, to me the borders are tightly fitting, I find this annoying and spend unnecessary time trying to increase the height size, so that I get a neat empty margin / border round the text / content in each cell .

How do I (hopefully a default setting) format Excel to keep Auto Fit Row Height at (Auto Fit Row Height + 15), or is there someway I could have some Macro to ensure this view in my Workbooks and Worksheets?

Thanks
Answer
Answer

There is no built-in setting for this. You could run the following macro instead of selecting Format | AutoFit Row Height:

 

Sub AutoFitPlus()
  Dim rng As Range
  Selection.EntireRow.AutoFit
  For Each rng In Selection.Rows
    rng.RowHeight = rng.RowHeight + 15
  Next rng
End Sub

 

This will only look nice if vertical alignment is Top or Center instead of the default Bottom. You could add that to the macro:

 

Sub AutoFitPlus()
  Dim rng As Range
  Selection.EntireRow.AutoFit
  For Each rng In Selection.Rows
    rng.RowHeight = rng.RowHeight + 15
  Next rng
  Selection.VerticalAlignment = xlCenter
End Sub

---
Best wishes, HansV
https://www.eileenslounge.com

5 people found this reply helpful

·

Was this reply helpful?

Sorry this didn't help.

Great! Thanks for your feedback.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this reply?

Thanks for your feedback.

 
 

Question Info

Last updated May 3, 2024 Views 7,863 Applies to: