我试图在各部分之间添加形状(在形状中以节号作为文本),但到目前为止,我只知道如何找到那些具有该布局名称的幻灯片。我想我应该在某个地方设置一个柜台,但我还没有找到办法。理想情况下,我将对部分进行计数,然后稍后将值传递给要开发的宏的其他部分。
Sub Navigator()
Dim oSlide As Slide
Dim oSlideNavigator As Slide
Dim oShapeNavigator As Shape
Dim Section_N As Integer
For Each oSlide In ActivePresentation.Slides