Question

因此，我尝试将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实例： Cannot create multiple instances of PowerPoint 所以我想拥有一个实例对我来说很好，但是我真正想要的是多个Powerpoint窗口（即，一个用于Panel1，一个用于Panel2）

如何打开Powerpoint的单独实例

0 个答案: