How to force cells to have a constant height

[mtaylor7]

I have a chart that I am making, and I set all of the cell heights to be at 7.50(10px) so that everything will fit just right. I set my font size to be 8pt and it fits perfectly. But every time that I refresh my pivot table, it makes the cell heights with information in them increase to 12.5 again because it thinks that according to the font size, that is how tall they should be. Is there any way to force the cells to stay at a constant size, even if the font size is way bigger?

Thanks in advance for any help.

 

[Michael M]

maybe this in the worksheet module of the sheet you want to adjust

Sub worksheet_Activate()
lr = Cells(Rows.Count, 1).End(xlUp).Row
    Rows("1:" & lr).RowHeight = 7.5
End Sub