PowerPoint vb.net參考當前幻燈片

Question

在VB .NET和為插入各種形狀類型而編寫的任何行中為PowerPoint編寫插件時，都會收到錯誤消息：“引用非共享成員需要對象引用”

我已經用Google搜索了，所有建議都以

Slide.Shapes.AddShape

雖然那給出了上面的錯誤，例如

NewBubble = Slide.Shapes.AddShape(MsoAutoShapeType.msoShapeOval, 20, 150 + (i * 10), cm2points(0.4), cm2points(0.4))

那么，如何引用活動幻燈片，以便隨后可以轉到“ .Shapes”或其他形狀？

我已經將“ Imports Microsoft.Office.Interop.PowerPoint”放在頂部，並嘗試了“ PowerPoint。etc”和“ Application。etc”，但似乎也不起作用。

Answer 1

您是否嘗試使用過： Globals.ThisAddIn.Application.ActiveWindow.View.Slide ？

怎么樣： Globals.ThisAddIn.Application.ActivePresentation.SlideShowWindow.View.Slide ？

我認為您也可以處理Application.SlideSelectionChanged ，然后將其作為事件處理程序參數的SlideRange轉到選定的幻燈片。

Answer 2

我在這里說的是VBA，而不是VB.NET，但是翻譯應該不會太困難：

在普通（即編輯）視圖中，這將為您提供當前幻燈片的參考：

ActiveWindow.Selection.SlideRange(1)

如果您處於幻燈片放映視圖中，則可以使用它來獲取對當前幻燈片的引用：

SlideShowWindows(1).View.Slide

需要注意的是，如果正在進行多個幻燈片放映，則可以有多個幻燈片放映窗口（很少見，但有可能發生）。 為了安全起見，請首先檢查SlideShowWindows.Count。