Microsoft Project - VBA - Application.ProjectBeforePublish事件

Question

简单的问题，但关于此的信息很少。

我正在寻找在MSP VBA中实现ProjectBeforePublish事件的示例。例如，假设我想在发布项目计划之前使用字符串“something”调用消息框。怎么可能只在发布事件上完成？

我需要启用特定的库吗？

Answer 1

这是一个MS Project 2013功能，似乎......我有MS Project 2010。

Answer 2

请确保这是POST 2010功能，但要启用它有点奇怪。 您必须添加一个类模块（我将其称为Mine'EventClassModule'），并且其中应包含以下代码以帮助您入门：

Option Explicit

Public WithEvents App As Application
Public WithEvents Proj As Project

然后在任何其他模块中创建此子例程，然后运行它以“启用” BeforePublish事件（以及许多其他“应用程序”级事件：

Option Explicit

Dim X As New EventClassModule

Sub Initialize_App()
  Set X.App = MSProject.Application
  Set X.Proj = Application.ActiveProject
End Sub

一旦运行了Initialize子项，您可以返回EventClassModule并从代码窗口上方（左侧的下拉菜单）的“ Object”下拉列表中选择“ App”。完成后，您可以单击“过程”下拉至其右侧，以选择ProjectBeforePublish事件。