生成数据透视表时出现错误438

Question

我正在尝试在工作表PW中生成数据透视表。 我想将“标签”列中的值带到中心，因此，我包含了

行

  

.Horizo​​ntalAlignment = xlCenter

当我包含这个时，我收到错误

  

object不支持此属性或方法

这是完整的代码，我用于创建数据透视表。

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

任何人都可以建议，我如何将我的Pivot列中的值带到Center。

Answer 1

您必须将该属性应用于pivot字段的True或DataRange属性（或两者）。