Итак, я пытаюсь встроить экземпляр PowerPoint в панель. Пока что у меня есть:
Public Sub initiate_powerpoint()
Dim oApp As New PowerPoint.Application
oApp.Visible = True
proc = oApp.HWND
SetParent(proc, Me.Handle)
MoveWindow(proc, 0, 0, Me.Width, Me.Height, True)
oApp.WindowState = PowerPoint.PpWindowState.ppWindowMaximized
End Sub
Теперь это прекрасно работает само по себе, и если его вызывать один раз, но когда у меня уже есть отдельный файл PowerPoint, он просто захватит этот существующий и вставит его. Я не хочу это; скорее, я хочу, чтобы он создал новый экземпляр PowerPoint и вставил его.
Я думаю, что:
Dim oApp As New PowerPoint.Application
должен достичь этого, поскольку я использую New
, но это не так. Какие-либо предложения? К вашему сведению, это PowerPoint2016
Редактировать
Итак, если посмотреть дальше, кажется, что вы не можете одновременно запускать несколько экземпляров Powerpoint:
Невозможно создать несколько экземпляров PowerPoint
так что я думаю, что для меня хорошо иметь один экземпляр, но мне действительно нужны несколько окон Powerpoint (то есть одно для Panel1 и одно для Panel2)