如何确保未显示Microsoft项目vba中的“详细信息”任务窗格

时间:2020-01-14 18:27:13

标签: vba ms-project customtaskpane

我在Microsoft项目中有一个应用程序,该应用程序执行任务的Backtrace,然后使用以下内容将该图像保存到Excel选项卡

Application.EditCopyPicture对象:= False,ForPrinter:= 0,SelectedRows:= 0,FromDate:=最早开始,ToDate:= LFin,ScaleOption:= pjCopyPictureShowOptions,MaxImageHeight:=-1#,MaxImageWidth:=-1#, MeasurementUnits:= 2

该过程中使用的一些变量的定义: 最早开始= StatusDate-30 Lfin = Backtrace目标任务的完成,它将是字符串中的最后一个任务。

我使用标志字段来标识要为其创建回溯的任务,然后循环浏览所有任务以创建回溯图像并将其保存到唯一的excel选项卡。

我的应用程序经常使用在拆分屏幕上半部分使用的相同视图“创建辅助任务窗格”。我不希望显示屏幕的下半部分的分屏。当我有分屏显示时,我的应用程序

是否存在可以在代码中使用的vba命令,该命令将测试是否存在辅助任务窗格,如果存在,则将其清除。我一直在寻找可以测试功能区任务\详细信息复选框,但无法找到它的东西。

如果在运行应用程序之前我删除了辅助窗格,则它运行良好。如果我开始运行带有显示第二个窗格的vba,则会弹出一个“查看”对话框。

我已经尝试过:

ViewApplyEx SinglePane:=正确,ApplyTo:= 1 但这会显示“视图”视图对话框,并迫使我从列表中选择一个视图,这不是我想要的。

关于我应该去哪里的任何建议?

1 个答案:

答案 0 :(得分:0)

您要寻找的方法是PaneClose。它将关闭活动窗口的下部窗格。如果下部窗格已关闭,则不执行任何操作。这样做:

Application.PaneClose
Application.EditCopyPicture Object:=False, ForPrinter:=0, SelectedRows:=0, FromDate:=EarliestStart, ToDate:=LFin, ScaleOption:=pjCopyPictureShowOptions, MaxImageHeight:=-1#, MaxImageWidth:=-1#, MeasurementUnits:=2