Question

我特意试图改变：

文件＆gt;选项＆gt;时间表＆gt;该项目的计划选项＆gt;拆分正在进行的任务

我编写了一个更改“停止”字段的宏，但如果未选中此框，则“停止”字段将变为只读。

我没有找到任何人在其他论坛中尝试此操作的示例。

我在Project 2010工作

Answer 1

在搜索中有点坚持，我找到了答案。它实际上是在Project 2013中的对象浏览器中，但我没有在MSDN上的项目模型中看到它。

所以，这是一个简单的切换宏，用于原始问题和我的问题（但实际上是相同的解决方案）。

我知道有一种方法可以更简洁地编写一个切换，但除了我不记得的事实之外，这也更好地显示了逻辑。

希望这有帮助！

NIC。

Sub ToggleAutoLink()

    Dim ap As Project
    Set ap = ActiveProject

    If ap.AutoLinkTasks = True Then
        ap.AutoLinkTasks = False
    Else
        ap.AutoLinkTasks = True
    End If

End Sub

---------------

Sub ToggleSplitInProgess()

    Dim ap As Project
    Set ap = ActiveProject

    If ap.AutoSplitTasks = True Then
        ap.AutoSplitTasks = False
    Else
        ap.AutoSplitTasks = True
    End If

End Sub

Answer 2

我一直在寻找一些非常相似的东西，但遗憾的是我无法回答，因为我也找不到办法，并在谷歌搜索时遇到了这个帖子。

我想切换一个非常接近你的选项（！），这就是“自动链接插入或移动的任务”，我希望我能在VBA中编写一些简单的东西，并在我的快速访问工具栏上有一个按钮。

所以...这只是一个小小的尝试来解决这个问题。

NIC。

MS Project 2013 Professional

是否可以从vba更改MS Project选项菜单中的设置？如果是这样，怎么样？

2 个答案: