如何在全屏浏览器中启动Powerpoint演示文稿？

Question

我的默认浏览器设置为Firefox，但是我想在IE（全屏）中的幻灯片放映幻灯片中打开超链接。 我用下面的宏：

Sub hyperlink() 
sCmd = """C:\Program Files\Internet Explorer\iexplore.exe"" " _ 
& "http://www.google.com/" 
Shell sCmd 
End Sub 

当我点击超链接它会打开IE浏览器中的网站，但在背景上。我仍然必须退出Powerpoint。是否有可能在全屏模式下立即打开链接？

Answer 1

可以试试Internet Explorer的kiosk模式与-k开关

然而PowerPoint将仍然是开放的，退出你需要使用Alt-F4 kiosk模式

此代码也应该把IE的前景

Public Declare PtrSafe Function FindWindow% Lib "user32" Alias "FindWindowA" _ 
              (ByVal lpclassname As Any, _ 
              ByVal lpCaption As Any) 

Public Declare PtrSafe 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 

Global Const HWND_TOPMOST = -1 
Global Const SWP_NOSIZE = &H1 
Global Const SWP_NOMOVE = &H2 

Sub hyperlink() 
sCmd = """C:\Program Files\Internet Explorer\iexplore.exe"" -k " _ 
& "http://www.google.com/" 
Shell sCmd 
hwnd% = FindWindow%("Internet Explorer", 0&) 
Call SetWindowPos(hwnd%, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or _ 
     SWP_NOSIZE) 
End Sub 

测试在Win 10的x64和PowerPoint 2013 & IE11