如果你把這個在一個HTML文檔,你也許可以使用IWebBrowser2
對象打開幻燈片裏面的HTML。我不確定3D圖形是如何渲染的,我不會提供任何進一步的建議,但是您可能會先嚐試在幻燈片中創建一個WebBrowser對象,然後告訴它導航到HTML文件。
Sub InsertHTMLFrame()
Dim sld as Slide
Dim shp as Shape
Dim wb as Object
Set sld = ActivePresentation.Slides(1) '## Modify as needed
'## Create the shape container, you will need to modify the L/T/W/H to fit your document
Set shp = sld.Shapes.AddOLEObject(100, 200, 200, 150, _
"Shell.Explorer.2")
shp.Name = "3dgraphic"
Set wb = shp.OLEFormat.Object
wb.Navigate "C:\Users\you\Desktop\exported3dgraphic.html"
End Sub
控制在幻燈片模式下,該流動可能會有點麻煩,但它是可行的,所提供的圖形可以正確顯示,通過IE這樣的。
如何安裝此宏
- 打開PowerPoint演示文稿,然後單擊Alt + F11調出Visual Basic項目。在左窗格中
- 右鍵單擊該項目,並插入模塊:
- 在這個模塊從我的答案中的代碼粘貼。
- 在表示
wb.Navigate "C:\..."
的行中,將其修改爲HTML文件的正確文件路徑。這可能是您的計算機上或在一個共享的網絡文件夾等
瀏覽器應該能夠顯示HTML頁面時在幻燈片模式,但在正常或預覽模式將無法使它們。
有一個瀏覽器,甚至R,在後臺運行並使用Alt-Tab在 – James