在PowerPoint中嵌入R動畫3D繪圖

Question

rgl R包允許繪制交互式3D圖形並將這些圖形保存在html文檔中（使用writeWebGL()函數）。

我想將這樣一個交互式3D圖形放在PowerPoint演示文稿中。 可能嗎 ？

編輯：在谷歌的幫助下研究Dieter Menne的答案后，我得出以下結論：

• 目前，Luke Tierney將3D圖形轉換為U3D文件和/或Asymptote文件的方法僅適用於使用misc3d軟件包而不是rgl軟件包創建的圖形。
• 將3D rgl圖形導出到VRML / X3D文件已作為未來計划公布。 也許這將允許將3D rgl圖形嵌入到Powerpoint和/或LaTeX演示中。

編輯 ： 相關討論

Answer 1

如果您轉移Powerpoint演示文稿（或者更多R-ish，使用beamer / latex），並按照Luke Tierney的文章中描述的方式嵌入3D圖可能

http://homepage.stat.uiowa.edu/~luke/R/misc3d/misc3d-pdf/misc3d-pdf.pdf

Answer 2

如果將其放入HTML文檔中，則可以使用IWebBrowser2對象在幻燈片中打開HTML。 我不確定3D圖形是如何渲染的，我不熟悉R或者無法提供任何進一步的建議，但是你可能首先嘗試在幻燈片中創建一個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

在SlideShow模式下控制此流程可能有點棘手，但它是可行的，前提是圖形正確地通過IE渲染。

如何安裝此宏

1. 打開PowerPoint演示文稿，然后單擊Alt + F11以打開Visual Basic項目。
2. 右鍵單擊左窗格中的項目，然后單擊“插入模塊”：

3. 將我的答案中的代碼粘貼到此模塊中。
4. 在說明wb.Navigate "C:\\..."的行中，將其修改為HTML文件的正確文件路徑。 這可以在您的計算機上或共享網絡文件夾中等。

瀏覽器應該能夠在SlideShow模式下顯示HTML頁面，但不會在正常模式或預覽模式下呈現它們。