如何使用Excel VBA移动状态栏三点分隔符至添加工作表按钮右侧？

看起来你已经找对了方向，用TabRatio属性来控制这个三点分隔符的位置确实是Excel VBA里的标准做法！我来帮你把这个方案再细化下，让效果更贴合你的需求：

• 核心逻辑拆解：ActiveWindow.TabRatio代表的是工作表标签栏宽度与Excel窗口总宽度的比例（取值范围0~1）。你写的pos = 150再结合pos / ActiveWindow.Width计算比例，本质就是把分隔符固定在距离窗口左边缘150像素的位置，完美匹配你说的「工作表名称固定时硬编码位置」的需求。
• 精准定位优化：如果想让分隔符刚好落在「添加工作表」按钮右侧稍远处，你可以先手动拖动标签栏到理想位置，然后运行这段小代码获取当前的比例值，之后直接硬编码这个值会更精准：

  ' 弹出当前TabRatio的数值
  MsgBox ActiveWindow.TabRatio
  

  比如你得到的数值是0.23，那就把代码改成ActiveWindow.TabRatio = 0.23，省去每次计算像素比例的步骤。
• 自动生效设置：如果希望每次打开工作簿时这个设置自动生效，可以把代码放到ThisWorkbook的Workbook_Open事件中：

  Private Sub Workbook_Open()
      ' 两种方式选其一即可
      ActiveWindow.TabRatio = 150 / ActiveWindow.Width ' 适配窗口大小的动态比例
      ' ActiveWindow.TabRatio = 0.23 ' 固定比例值，适合窗口大小不变的场景
  End Sub
  

小提醒：如果你的Excel窗口经常调整大小，用像素计算比例的方式会自动适配；如果窗口尺寸固定，直接用获取到的固定比例值会更稳定。

内容的提问来源于stack exchange，提问作者RIck_R