如何让PowerPoint VBA Userform始终置于所有幻灯片放映窗口顶层

方案1：实现Userform全局置顶（适配PowerPoint） #

通过调用Win32 API的SetWindowPos函数可以强制Userform始终处于所有窗口顶层，无需依赖Office自带的模式设置，适配32/64位Office：

1. 打开你的Userform代码窗口，在顶部粘贴以下API声明：

#If VBA7 Then
    Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hWnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#Else
    Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#End If

' 常量定义
Const HWND_TOPMOST = -1
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2

2. 在Userform的Initialize事件中添加置顶调用：

Private Sub UserForm_Initialize()
    ' 固定Userform尺寸位置的前提下置顶
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

3. 显示Userform时依旧使用无模式参数：

UserForm1.Show vbModeless

如果新打开放映窗口后Userform仍被遮挡，可在打开新放映窗口的代码末尾再次调用一次SetWindowPos函数即可重新触发置顶。

方案2：隐藏主放映窗口（稳定性更高） #

如果置顶方案不符合你的使用需求，可以直接将主放映窗口移出可视区域，完全避免遮挡问题，也不会触发点击Userform时主窗口前置的问题：

Sub 启动放映并隐藏主窗口()
    Dim mainShowWindow As SlideShowWindow
    ' 启动主放映
    Set mainShowWindow = ActivePresentation.SlideShowSettings.Run
    
    ' 将主放映窗口移到屏幕外，用户不可见
    mainShowWindow.Left = -10000
    mainShowWindow.Top = -10000
End Sub

该方案不会影响你通过形状链接弹出的其他放映窗口的正常显示，Userform只要放在当前屏幕可视区域内即可正常操作。

注意事项 #

• 所有代码需存放在启用宏的PowerPoint文件（.pptm/.ppsm）中，需提前调整宏安全设置允许VBA代码运行
• 代码自带32/64位Office适配，无需额外修改
• 若需要恢复显示主放映窗口，只需将Left和Top属性调整为0即可

内容的提问来源于stack exchange，提问作者Tim