在状态栏中移动三点分隔符答案

【问题标题】：Move 3-dot separator in Status Bar在状态栏中移动三点分隔符
【发布时间】：2018-04-27 16:30:25
【问题描述】：

使用 Excel VBA，如何移动状态栏中的三点分隔符？我想将它移到带圆圈加“添加工作表”按钮的右侧一点。

工作表名称将始终相同，因此，如有必要，硬编码相对于窗口左边缘的位置不是问题。

根据答案了解如何执行此操作：

Dim pos As Integer
pos = 150

ActiveWindow.TabRatio = pos / ActiveWindow.Width

【问题讨论】：

见HERE
@ScottCraner：哇。
@SMeaden 刚刚录制了一个宏，然后用谷歌搜索了结果。
啊，当然。

标签： vba excel statusbar

【解决方案1】：

这是一个名为TabRatio 的Window 属性。它的范围是从 0 到 1，其中 0 是状态栏的最左侧，而 1 是状态栏的最右侧。

这是一个基本的例子：

Private Sub letTabRation()

    'WAY OF SEEING WHAT THE CURRENT RATIO IS
    Debug.Print ActiveWindow.TabRatio

    'WAY OF LETTING THE RATIO IN VBA
    ActiveWindow.TabRatio = 0.117

End Sub

请注意，此左侧有一个边距，您可能需要在工作表中使用它，并阅读当前设置的属性！

【讨论】：