Как открыть отдельные экземпляры Powerpoint - PullRequest
0 голосов
/ 30 октября 2018

Итак, я пытаюсь встроить экземпляр 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)

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...