我正在编写PowerPoint 2010 AddIn。简而言之,这就是我所做的:
newAgendaSlide.MoveToSectionStart(sectionNumber)
非常简单)我必须设置两个Shape对象的文本(一个位于幻灯片顶部,第二个位于底部/右角) - 让我们在当前部分的每张幻灯片上调用Header& Footer)到当前PowerPoint部分的名称。现在,我知道如何获得部分标题:
Presentation.SectionProperties.Name(sectionNumber)
我知道如何遍历Shape
对象上的Slide
个对象。但我不知道如何访问正确的 Shape 。我不能确定,例如,我的页眉/页脚形状将Id设置为特定值?有没有办法在Layout的Shape上设置某种属性,然后完全确定相同的属性在Slide上具有相同的值?
总结(并希望说清楚):我想创建一个具有x个形状的布局幻灯片(在SlideMaster中),并且能够在真实演示幻灯片上访问特定幻灯片。
答案 0 :(得分:3)
我可能会自己插入页眉/页脚形状而不是使用PPT(严重破坏)的页脚。
我会使用标签来识别您添加的形状。当它有时间操纵其中一个时,看看幻灯片上是否有一个(测试你添加的标签),如果找不到,请添加自己的。 AirVBA示例:
For each oSh in oSlide.Shapes
If Len(oSh.Tags "MyShape") > 0 Then ' its' your footer
Set oFooter = oSh
End If
If oFooter is Nothing then ' not there, add one:
Set oFooter = ... add the shape here
' add the tags
oFooter.Tags.Add "MyShape", "Footer"
With oFooter
' format it, add text, whatever
End with
End if
Next