2

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

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

过程中使用的一些变量的定义： EarliestStart = StatusDate-30 Lfin = Backtrace 的目标任务的完成，这将是字符串中的最后一个任务。

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

每隔一段时间，我的应用程序就会使用我在分屏上半部分使用的相同视图“创建辅助任务窗格”。我不想要显示屏幕下半部分的分屏。当我有分屏时，我的应用程序

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

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

我已经尝试过：

ViewApplyEx SinglePane:=True, ApplyTo:=1 但这会显示“视图”对话框并强制我从列表中选择一个视图，这不是我想要做的。

关于我应该在哪里看的任何建议？

4

1 回答 1

0

您正在寻找的方法是PaneClose。它将关闭活动窗口的下部窗格。如果下部窗格已经关闭，它什么也不做。所以这样做：

Application.PaneClose
Application.EditCopyPicture Object:=False, ForPrinter:=0, SelectedRows:=0, FromDate:=EarliestStart, ToDate:=LFin, ScaleOption:=pjCopyPictureShowOptions, MaxImageHeight:=-1#, MaxImageWidth:=-1#, MeasurementUnits:=2
于 2020-01-14T19:18:32.177 回答