Vba 滚动条赢了'；t在工作表中隐藏或移动\u Activate（）_Vba_Excel

Vba 滚动条赢了'；t在工作表中隐藏或移动\u Activate（）

vba excel

Vba 滚动条赢了'；t在工作表中隐藏或移动\u Activate（）,vba,excel,Vba,Excel,我在工作表的代码中有一个工作表\u Activate（）子项，它可以在每次激活工作表时调整其大小，并隐藏滚动条。由于某些不可理解的原因，当我将其作为另一个子系统的一部分运行时（使用“工作表（“菜单”）。激活“”），则“ActiveWindow.DisplayVerticalScrollBar=False”不起作用！！与中一样，垂直滚动条保持可见更糟糕的是，当我稍后设置“.width”时，滚动条不会随之移动！因此，我最终在应用程序窗口的一侧设置了一个大约20像素的浮动滚动条更糟糕的是，当我在代

我在工作表的代码中有一个

工作表\u Activate（）

子项，它可以在每次激活工作表时调整其大小，并隐藏滚动条。由于某些不可理解的原因，当我将其作为另一个子系统的一部分运行时（使用“

工作表（“菜单”）。激活“”），则“ActiveWindow.DisplayVerticalScrollBar=False
”不起作用！！与中一样，垂直滚动条保持可见
更糟糕的是，当我稍后设置“.width
”时，滚动条不会随之移动！因此，我最终在应用程序窗口的一侧设置了一个大约20像素的浮动滚动条
更糟糕的是，当我在代码中插入破折号来遍历它时，它工作得很好
我在这件事上被难住了
以下是相关代码：
Sub Worksheet_Activate() 

With ActiveWindow
    .DisplayHeadings = False
    .DisplayHorizontalScrollBar = False
    .DisplayVerticalScrollBar = False    ' <-- this guy right here...
End With

With Application
    .WindowState = xlNormal ' can't resize maximized!
    .Left = 100 ' as soon as I do this, things go sideways
    .Width = 570
    .Top = 50
    .Height = 230
End With
End Sub

但这似乎没有帮助
在激活窗口之前，我可以通过在子窗口中放置另一个“ActiveWindow.DisplayVerticalScrollBar=False
”来解决这个问题，但这样我就避免了这个问题，而不是修复它
 我无法在Excel 2013中复制此内容。您可能希望尝试在2个块和块之间使用DoEvents
。我无法在Excel 2013中复制此操作。您可能需要在2个块和块之间尝试一个DoEvents。
Application.Wait (Now + TimeValue("00:00:01"))