Встраивание анимационного 3D-графика в PowerPoint

Пакет rgl R позволяет отображать интерактивные 3D-фигуры и сохранять эти цифры в html-документе (с функцией writeWebGL()).

Я хотел бы разместить такую интерактивную трехмерную фигуру в презентации PowerPoint. Возможно ли это?

EDIT: После изучения ответа Дитера Менна с помощью Google мои выводы заключаются в следующем:

В настоящее время метод Luke Tierney для преобразования 3D-графики в файл U3D и/или файл Asymptote работает только для графики, созданной с пакетом misc3d, а не с пакетом rgl.
Экспорт графики 3D rgl в Файлы VRML/X3D объявлен в качестве будущего плана. Возможно, это позволит встроить 3D-графики rgl в презентацию Powerpoint и/или LaTeX.

EDIT: связанное обсуждение

Ответ 1

Возможно, если вы передадите презентацию Powerpoint (или даже больше R-ish, используйте лучи/латекс) и вставьте 3D-график, как описано в статье Люка Тирни

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

Ответ 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

Управление этим потоком во время режима слайд-шоу может быть немного сложнее, но это возможно при условии, что графическое изображение правильно отображается через IE, как это.

Как установить этот макрос

Откройте презентацию PowerPoint и нажмите Alt + F11, чтобы открыть проект Visual Basic.
Щелкните правой кнопкой мыши проект в левой панели и вставьте модуль:

Вставьте код из моего ответа в этот модуль.
В строке, которая говорит wb.Navigate "C:\...", измените это на правильный путь к файлу HTML. Это может быть на вашем компьютере или в общей сетевой папке и т.д.

Браузер должен иметь возможность отображать HTML-страницы в режиме слайд-шоу, но не отображать их в обычном режиме или режиме предварительного просмотра.