有人知道在 PowerPoint 中进行 VBA/VSTO 编程的未来会怎样吗？我一直在从事一个 Office 自动化项目，发现使用 PowerPoint 尤其令人沮丧，因为它似乎比 Excel 或 Word 中的 VBA 支持低一级。
感觉就像 MS 正试图在 PowerPoint 中逐步取消对 VBA 的支持，因为他们在 2007 版中放弃了宏录制并且对象模型缺乏一些关键功能支持。
【问题讨论】：
标签： vba vsto powerpoint
我不确定这是否是您想听到的答案，但在 PowerPoint 中使用 VBA 进行开发实际上是不错的。我做了很多（以及 Word 和 Excel），它足够强大。可以使用 VBA 进行编程的 PowerPoint OM 会随着每个新版本的 PPT 进行更新。在 PPT 2007 中，您可以针对幻灯片上的 any 对象创建自定义 XML - 比 Excel 和 Word 中可用的选项强大得多。相比之下，Word 2007 有内容控件，为了让 PPT 成为某种 Crystal Reports 轻量级替代品，它会从中受益。例如，在 PPT 2010（测试版）中，您可以像使用 Word/Excel 2010 一样以编程方式创建 SmartArt。您还可以比以前更好地以编程方式使用媒体元素。不过，从 OM 的角度来看，VSTO 提供的功能并不比 VBA 多。
不过，这可能只取决于您的需求 - 您是否创建标准的子弹幻灯片？你做扩展动画吗？你做报道吗？您是否正在创建电子学习“应用程序”？如果您对 OM 有具体问题，我们可以在这里尝试帮助您（但也许该功能不存在）。
同意删除宏记录器有点糟糕，这是一个有用的功能。直接使用 PML/DML 也很痛苦。有些事情我希望 OM 也支持。但是，在崩塌的同时，我认为 VBA 不会很快消失。
注意：这不起作用。仅当人们想尝试将其开发成可能有用的东西时，才提供它作为起点（如果您可以让它工作，请随时编辑这篇文章）。
粘贴以下代码。
Public WithEvents PPTEvent As Application
Private Declare Function GetCursorPos Lib "user32" (ByVal lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim ret As Long
Dim mousePosition As POINTAPI
Private Sub PPTEvent_WindowSelectionChange(ByVal Sel As Selection)
Dim ElementID As Long
Dim Arg1 As Long
Dim Arg2 As Long
With Sel
If .Type = ppSelectionShapes Then
Dim sr As ShapeRange
sr = .ShapeRange
If sr.Type = msoChart Then
Dim sh As Shape
Dim slideNumber As Integer
slideNumber = ActiveWindow.View.Slide.SlideIndex
sh = ActivePresentation.Slides(slideNumber).Shapes(sr.Name)
Dim crt As Chart
crt = sh.Chart
H = ActiveWindow.Height
w = ActiveWindow.Width
ret = GetCursorPos(mousePosition)
x = mousePosition.x
y = mousePosition.y
crt.GetChartElement(x, y, ElementID, Arg1, Arg2)
MsgBox("X: " & x & ", Y: " & y & vbNewLine & _
"ElementID: " & ElementID & ", Arg1: " & Arg1 & ", Arg2: " & Arg2)
End If
End If
End With
End Sub
在常规模块中，您可以使用以下命令开始/停止事件处理：
Public newPPTEvents As New clsPPTEvents
Sub StartEvents()
Set newPPTEvents.PPTEvent = Application
End Sub
Sub EndEvents()
Set newPPTEvents.PPTEvent = Nothing
End Sub
请注意，在 #2 中的代码中，它不起作用，因为 GetCursorPos 返回的是屏幕 X、Y。在查看事件时，似乎 GetChartElement 想要的是 Window 或 Pane 边界框的坐标或图表本身。
【讨论】：
Powerpoint 从来都不是 VBA 开发的流行平台。我可以理解在这种情况下删除 VBA 的 UI 功能。 Tt 很容易在 Excel 和 Word 的基础上包含对 Powerpoint 的 VBA 支持 - 如果有的话，这不会很快消失。从长远来看，我的钱将用于遗留支持，微软对问题的帮助很差甚至根本不存在。
请记住，MS 完全是为了向后兼容 - 他们在放弃它时会非常小心。
【讨论】：
我同意 PPT 远低于其他 vba。最重要的是，它似乎有问题，请参阅 Weird bug on powerpoint vba
模型事件很尴尬，就像没有自动执行一样 How to automatically trigger the App Object initialization in Powerpoint?
auto_open 只能以迂回的方式通过创建插件来实现
【讨论】：
请参阅此article 以总结为什么 VSTO 是可行的方法。与 Excel 的 VBA 相比，但同样适用于 Powerpoint。
【讨论】：