从父应用程序断开VBA UserForm

我正在使用Excel生成的用户窗体修改PowerPoint演示文稿(这是一种避免需要启用macros的电子表格的迂回方式)。 表单工作得很好,但是每次我关注它时,Excel应用程序都会关注(因为Excel是父窗口)。

有没有办法阻止这种情况的发生? 我想防止Excel使用UserForm时,焦点。

会这样的工作吗? 这将显示用户窗体时隐藏/隐藏父Excel应用程序。 或者至less让你开始:

示例子例程“显示”用户窗体:

Sub Test() Dim ppt As Object Dim xl As Object Set ppt = GetObject(, "PowerPoint.Application") Application.Visible = False UserForm1.Show vbModeless End Sub 

在窗体的Terminate事件中使用它:

 Private Sub UserForm_Terminate() 'Ensures the Excel Application is visible after the form closes Application.Visible = True End Sub 

如果要允许用户取消隐藏Excel应用程序,可以在窗体上添加一个button/等

 Private Sub CommandButton1_Click() 'Displays the Excel Application: Application.Visible = True End Sub