切片器能不能固定在屏幕位置，不受行的滚动的影响

killreins

切片器在文档中的位置总会随着文档的滚动而上下移动，如何让他不随文档内容滚动而上下移动呀？？？


补充内容 (2019-7-18 17:25):
不是透视表上 的切片器。我是CTRL+T创建的智能表格上应用的切片器。

killreins

自己顶一下，别沉了

x193ww

数据透视表选项-布局和格式-“更新时自动调整列宽”，把这个取消了

killreins

x193ww 发表于 2019-7-17 15:08
数据透视表选项-布局和格式-“更新时自动调整列宽”，把这个取消了

我没有做透视表，不是透视表上 的切片器。我是CTRL+T创建的智能表格上应用的切片器，没有你说的那个选项。

killreins

为什么没什么回答？行不行的给个话呀！！！！

午夜兰花

是啊，一旦滚动就看不到切片器了，能绝对固定就好了。

明月楼高可带刀

请问大家 有招了吗，我也是表格一打开切片器就不见了

ghostiter

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim ShF As Shape
    Dim ShM As Shape
    'specify a slicer
    Application.ScreenUpdating = False
    Set ShF = ActiveSheet.Shapes("门店")
    Set ShM = ActiveSheet.Shapes("型号")
    'change position of the slicer
    With Windows(1).VisibleRange.Cells(1, 1)
        ShF.Top = .Top + 30
        ShF.Left = .Left + 900
        ShM.Top = .Top + 30
        ShM.Left = .Left + 820
    End With
    Application.ScreenUpdating = True
End Sub

ghostiter

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim ShF As Shape
    Dim ShM As Shape
    'specify a slicer
    Application.ScreenUpdating = False
    Set ShF = ActiveSheet.Shapes("切片器名1")
    Set ShM = ActiveSheet.Shapes("切片器名2")
    'change position of the slicer
    With Windows(1).VisibleRange.Cells(1, 1)
        ShF.Top = .Top + 30
        ShF.Left = .Left + 900
        ShM.Top = .Top + 30
        ShM.Left = .Left + 820
    End With
    Application.ScreenUpdating = True
End Sub