生成數據透視表時出錯438

Question

我正在試圖生成工作表PW中的數據透視表。 我希望把這些值在列標籤來中心，因爲這個原因，我包括線

.Horizo​​ntalAlignment = xlCenter

當我包括這

我得到一個錯誤

對象不支持此屬性或方法

這裏是完整的代碼，我用於創建數據透視表。

Sub status() 
Dim ws1 As Worksheet 
Dim pc1 As PivotCache 
Dim pt1 As PivotTable 
Dim ct1 As Integer 
Set ws1 = Sheets("PW") 
Set pc1 = ActiveWorkbook.PivotCaches.Create(xlDatabase, "'BW'!R4C18:R1048576C29") 
Set pt1 = pc1.CreatePivotTable(ws1.Range("A3")) 
pt1.AddDataField pt1.PivotFields(" Mismatch"), "Sum of Mismatch", xlCount 
With pt1 
With .PivotFields("Location in full form") 
.Orientation = xlRowField 
.Position = 1 
.AutoSort xlDescending, "Sum of Mismatch" 
End With 
With .PivotFields(" Mismatch") 
.Orientation = xlColumnField 
.Position = 1 
.PivotItems("(blank)").Visible = True 
.HorizontalAlignment = xlCenter 
End With 
End With 
End Sub 

可能任何人建議，我怎麼能把我的樞軸列中的值中心。

Answer 1

您必須將該屬性應用到數據透視表字段（或兩者）的DataRange或LabelRange屬性。