在VBA中创建切片器并改变样式

Dim wb As Workbook
Dim ws As Worksheet
Dim pt As PivotTable
Dim sc As SlicerCache
Dim sl As Slicer

Set wb = ThisWorkbook
Set ws = wb.Worksheets("Sheet1") '替换为实际的工作表名
Set pt = ws.PivotTables("PivotTable1") '替换为实际的数据透视表名

'创建切片器缓存对象
Set sc = wb.SlicerCaches.Add2(pt, "字段名") '替换为实际的字段名

'创建切片器对象
Set sl = sc.Slicers.Add(ws, Left:=10, Top:=10, Width:=100, Height:=200) '设置切片器的位置和大小

'修改切片器样式
sl.Style = "样式名称" '替换为实际的样式名称

'设置切片器的标题
sl.Caption = "切片器标题"

'设置切片器的显示位置和大小
sl.Left = 100
sl.Top = 100
sl.Width = 150
sl.Height = 300

'设置切片器的可见性
sl.Visible = True