关于微软Project”复制图片”对话框时间参数问题

此回答由系统自动翻译，因此可能包含语法错误或不常见的表达方式。由于我目前的测试环境使用的是英文界面，截图也将以英文显示。

您好 阿信，

根据您提供的信息，我了解到您正在使用 VBA 和 CommandBars.ExecuteMso("CopyPicture") 命令在 Microsoft Project 中打开“复制图片”(Copy Picture) 对话框。

目前，当通过 CommandBars.ExecuteMso("CopyPicture") 打开“复制图片”对话框时，Microsoft Project 并不提供受支持的 VBA 方法来自动填充“开始日期”(From) 和“结束日期”(To) 字段。该对话框允许用户手动输入这些日期，但无法通过此命令预设或获取这些值。

作为替代方案，您可以使用 Application.EditCopyPicture 方法。该方法会跳过“复制图片”对话框，允许您在复制图像之前直接在代码中指定日期范围。

Sub CopyPictureAuto()

    Application.EditCopyPicture _
        Object:=False, _
        ForPrinter:=pjScreen, _
        SelectedRows:=False, _
        FromDate:=#8/22/2026#, _
        ToDate:=#8/30/2026#

End Sub

请注意，代码中使用的日期格式为：MM/DD/YYYY（月/日/年）。

该宏将使用指定的日期范围自动复制图像，无需在“复制图片”对话框中进行任何输入。

有关 EditCopyPicture 方法及其可用参数的更多信息，请参阅以下 Microsoft 文档：

Application.EditCopyPicture 方法 (Project) | Microsoft Learn

如果您有任何其他问题或疑虑，请随时告诉我。我很乐意为您提供帮助。