Fehler 438 beim Generieren einer Pivot-Tabelle

Question

Ich versuche, eine Pivot-Tabelle im Blatt PW zu generieren. ich die Werte in der Spalte Labels Center, aus diesem Grund, ich gehörte die Linie

.HorizontalAlignment = xlCenter

wenn ich darunter bin das ich erhalte eine Fehlermeldung

bringen wollte

Objekt nicht unterstützt diese Eigenschaft oder Methode

hier ist der vollständige Code, i verwende zum Erstellen der Pivot-Tabelle.

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 

könnte jemand vorschlagen, wie ich die Werte in meiner Pivot-Spalte zu Center bringen könnte.

Answer 1

Sie müssen diese Eigenschaft entweder auf die Eigenschaften DataRange oder LabelRange des Pivot-Feldes (oder auf beide) anwenden.