MS Project - 通过功能区按钮重置为自定义视图答案

【问题标题】：MS Project - reset to custom view via ribbon buttonMS Project - 通过功能区按钮重置为自定义视图
【发布时间】：2019-01-24 02:42:21
【问题描述】：

所以我想开发一个带有按钮的自定义功能区，单击该按钮会切换到自定义视图。此功能区 + 按钮将存在于全局模板中，因此在 Project_Open 事件中，它会将功能区添加到 MS Project，并且可以使用。

我通过代码制作了自定义功能区，并且按钮正常工作。

我唯一的问题是，当我单击按钮时，我希望自定义视图重置为“原始表单”，这意味着如果我添加/删除列或更改有关格式的任何内容，我希望这些是消失了，每当我点击按钮时。

我可以看到“ResetView”功能不能这样工作，因为它会将自定义视图完全重置为其核心视图。

除了通过单击按钮以编程方式构建视图之外，我该如何实现这一点？

【问题讨论】：

标签： vba ms-project

【解决方案1】：

有两个视图副本，但每个副本都有一个不同但相同的表。单击按钮时，应用备份视图，删除主视图和表，复制备份视图并应用它：

Sub RestoreView()

    Const ViewName As String = "My Custom View"
    Const TableName As String = "My Custom Table"
    Const BackupView As String = "z My Custom View"

    ViewApply BackupView
    Application.OrganizerDeleteItem pjViews, ActiveProject.Name, ViewName
    Application.OrganizerDeleteItem pjTables, ActiveProject.Name, TableName
    Application.ViewEditSingle Name:=BackupView, Create:=False, NewName:=ViewName, Table:=TableName
    ViewApply ViewName

End Sub

【讨论】：