PowerPoint中用VBA统计幻灯片的张数

Question

如何实现“用VBA定义一个变量，使这个变量等于幻灯片的张数”

Answer 1

例子如下

Sub 统计当前PPT页数()
Dim n As Integer
n = ActivePresentation.Slides.Count
MsgBox n
End Sub