微软滑块控制 - 重复图像

Question

每当我加载一个MS滑块控件的Excel宏文件，滑块的重复图像出现在表单的左上角。滚动鼠标或在工作表之间切换时，滑块的此副本将消失。

我该如何摆脱重复滑块？

Answer 1

这只是一种变通方法。

可能是这些ActiveX对象上的ScreenUpdate上的一个bug。您可以通过在Slider下面激活单元格方式来解决此问题，然后在Workbook打开并且活动页面位于滑块所在的位置时返回顶部。

以下假设Slider位于Sheet1及以上的第50行。将以下代码添加到ThisWorkbook模块。

Option Explicit 

Private Sub Workbook_Open() 
    With ThisWorkbook.ActiveSheet 
     If .Name = "Sheet1" Then 
      .Range("A100").Activate 
      .Range("A1").Activate 
     End If 
    End With 
End Sub