在工作表代码模块中，你可以使用这样的代码：

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Dim pt As PivotTable, slc As Object
    Set pt = Me.PivotTables(1)        'or specific named pivot table
    Set slc = Me.Shapes("Call sign")  'for example
    
    With pt.TableRange1
        slc.Top = .Top   'move the slicer...
        slc.Left = .Columns(.Columns.Count).Offset(0, 1).Left
    End With
End Sub

字符串