PowerPoint VBA中如何实现ThisPresentation

众所周知，在Excel VBA中有ThisWorkbook，在Word VBA中有ThisDocument，但是不知道为啥PowerPoint VBA并不提供ThisPresentation，对于加载宏工具来说，经常需要引用工具所在的Presentation对象，既然微软官方没有提供这个对象，那么咱们自己动手丰衣足食。
示例代码如下。
Function ThisPresentation() As Presentation
Dim p As Presentation
For Each p In Presentations
If p.Name = "MyTools.ppam" Then
Set ThisPresentation = p
Exit Function
End If
Next
End Function

PowerPoint VBA中如何实现ThisPresentation最先出现在Python成神之路。