2013-11-20 73 views

回答

0

在搜索中有點持久性,我找到了答案。它實際上在Project 2013中的對象瀏覽器中,但我沒有在MSDN上的Project Model中看到它。

所以,這裏是一個簡單的切換宏的原始問題和我的問題(但同樣的解決方案)。

我知道有一種方法可以更簡潔地編寫切換,但除了我記不起的事實之外,這也顯示了更好的邏輯。

希望這會有所幫助!

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 
+0

從度假回來,並有一個等待你的解決方案,真是太棒了。謝謝! –

0

工作,我一直在尋找一些非常相似,但可悲的是,我還沒有找到一種方法,以及跨越這個線程來同時使用Google的答案,我不能回答。

我想切換一個非常接近你(!)的選項,那就是「自動鏈接插入或移動的任務」,我希望我可以在VBA中寫一些簡單的東西,並在我的快速訪問工具欄上有一個按鈕。

所以......這只是一個小小的嘗試來打破這個問題。

Nic。

MS Project 2013 Professional

+0

這不是一個非常有幫助的答案。我知道你暫時不能添加評論,只是要耐心等待,直到你得到足夠的分數。 – Franck

相關問題