Need a macro that locks row height and wrap text in a pivot table

I need my header row in my pivot table to lock the text wrap and row height. I know little about VBA, but I found the following code, but it doesn't lock my wrap settings. Any help would be much appreciated.

Sub PivotAutoFormatOff()
Dim pt As PivotTable

On Error Resume Next
For Each pt In ActiveSheet.PivotTables
pt.HasAutoFormat = False
Next pt
End Sub