从其他应用打开MS Project后，如何用VBA修改甘特图任务列表宽度

嘿，这个问题我之前也碰到过——从外部应用打开Project时，左侧任务列表总是被压缩得窄窄的，得手动拉宽，特别麻烦。用VBA就能彻底解决这个问题，下面给你两种实用的方案：

一、打开项目时自动调整宽度（推荐） #

把这段代码放到ThisProject模块里，这样不管是从Project本身打开，还是从其他应用跳转过来，项目加载时都会自动把任务列表区域调整到你想要的宽度：

Private Sub Project_Open(ByVal pj As Project)
    ' 这里设置宽度为800像素，你可以根据自己的屏幕和需求修改数值
    Application.LeftPaneWidth = 800
End Sub

怎么添加这段代码？ #

1. 打开你的Project文件，按下Alt + F11打开VBA编辑器
2. 在左侧的项目浏览器里找到ThisProject，双击打开它
3. 把上面的代码粘贴进去，保存文件即可

二、手动执行的宏（按需使用） #

如果你不想每次打开都自动调整，也可以写一个独立宏，需要的时候手动运行：

Sub SetGanttChartLeftPaneWidth()
    ' 先检查当前是不是在甘特图视图，避免在其他视图下误操作
    If ActiveView.Name = "甘特图" Then
        ' 自定义宽度，示例设为700像素，可自行修改
        Application.LeftPaneWidth = 700
        MsgBox "任务列表区域宽度已调整完成！", vbInformation
    Else
        MsgBox "请先切换到甘特图视图再执行哦！", vbExclamation
    End If
End Sub

关键细节说明 #

• Application.LeftPaneWidth：这个属性直接控制甘特图左侧任务列表的宽度，单位是像素。你可以先手动拖到合适的宽度，然后在VBA编辑器的立即窗口（Ctrl + G打开）输入Debug.Print Application.LeftPaneWidth，就能得到当前的精准像素值，把这个值写到代码里就完美适配你的需求了。
• 宏启用问题：Project默认可能会禁用宏，打开文件时记得选择“启用内容”，或者在信任中心设置里把宏的安全级别调整到合适的范围。

内容的提问来源于stack exchange，提问作者Сергей Соломеннов