从父应用程序断开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