使Outlook中的Userform保持在屏幕上 - VBA

Question

所以我创建了一个嵌入了Outlook的VBA宏。代码运行用户表单。

当我运行我的宏时：

目前：

• 当我最小化Outlook时，我的用户表单也会最小化。

我想要的：

• 当我最小化前景时，我希望我的用户形态留在屏幕上。

关于如何实现这一目标的任何想法？我正在使用vbModeless来显示我的userform，因为我希望用户在userform运行时访问outlook内容。

Answer 1

尝试将此添加到您的代码中。

Private Sub UserForm_Initialize()
    Dim olapp As Object
    Set olapp = GetObject(, "Outlook.Application")
    olapp.ActiveWindow.WindowState = 1
End Sub

这将在显示用户表单时最小化Outlook 不完全是你想要的（你描述的有点复杂），但效果几乎相同。