将切片器定义为对象

Question

当我单击一个单元格时，我需要帮助尝试编程切片器以跟随屏幕滚动或鼠标滚动。这是我的代码

Sub Slicer_Test()
'
' Slicer_Test Macro
'
' Keyboard Shortcut: Option+Cmd+k
'
Dim ShF As Shape
    Application.ScreenUpdating = True
    Set ShF = ActiveSheet.Shapes("Academic Career Desc")
       Shape.Range("B1:B132").Select

End Sub

它一直告诉我＆＃34;设置ShF = ActiveSheet.Shapes（＆＃34; Academic Career Desc＆＃34;）＆＃34;无效，可以找到该对象。有什么建议吗？