If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

Change the Pivot Table Style from Classic to Table Style Light 20

Thread starter papajups
Start date Jul 10, 2019
Tags

change objfield set style table

papajups

Board Regular

Jul 10, 2019

Good day All,

Hope all is well.

Could you please help me on how I can change the pivot table style being generated by the below macro. Currently, it generates "Classic" view, and would like to change it 'Table Style Light 20'.

HTML:

Sub CreatePivot()
ActiveWorkbook.Sheets("Pending Asia").SelectRange("B:P").SelectSet objTable = ActiveSheet.PivotTableWizard
Set objField = objTable.PivotFields("Number of Days Pending")objField.Orientation = xlRowField
Set objField = objTable.PivotFields("Status Changed to")objField.Orientation = xlColumnField
Set objField = objTable.PivotFields("Activity ID/Team Track")objField.Orientation = xlDataFieldobjField.NumberFormat = "0"
End Sub

I hope you can assist me on this matter. Thank you in advance!

regards,
Papajups