当 SmartArt 位于占位符内时访问 SmartArt 形状 (PowerPoint 2007)

Question

我需要在 PowerPoint 2007 中浏览智能艺术的每种形状。 当 shape.Type=msoSmartArt 时，我可以简单地浏览 shape.GroupItems 中的形状。

但是，当 shape.Type == msoPlaceholder && shape.PlaceholderFormat.ContainedType==msoSmartArt 那么 shape.GroupItems 为空。在这种情况下如何访问 Smart Art 形状？

---

我曾经认为 VBA 和 C# VSTO 基本相同。

嗯 - 这里有一个区别。我在实际的 VBA 中尝试了 Otaku 的代码，它似乎确实有效（很抱歉造成混乱，Otaku）。

但是，我的程序使用 C# VSTO 编写，并且：

foreach (Shape slideShape in pres.Slides[1].Shapes)
{
  if (slideShape.Type != MsoShapeType.msoSmartArt &&   !(slideShape.Type == MsoShapeType.msoPlaceholder &&  slideShape.PlaceholderFormat.ContainedType==MsoShapeType.msoSmartArt))
 continue;

 GroupShapes shapes=slideShape.GroupItems;
 Debug.WriteLine(shapes.Count);
}

确实产生： shapes.Count=0 （当形状类型为 Placeholder，且 containstype 为 SmartArt 时）。

有什么想法吗？

Answer 1

使用GroupShapes，例如：

Sub GetSAfromPlaceholder()
    Dim ap As Presentation: Set ap = ActivePresentation
    Dim sl As Slide: Set sl = ap.Slides(2)
    Dim sh As Shape: Set sh = sl.Shapes(2)
    Dim gsh As GroupShapes: Set gsh = sh.GroupItems
    If sh.Type = msoPlaceholder Then
        If sh.PlaceholderFormat.ContainedType = msoSmartArt Then
        Debug.Print "SmartArt Shape Count: " & gsh.Count
          For i = 1 To gsh.Count
            If gsh(i).TextFrame.HasText Then
                Debug.Print gsh(i).TextFrame.TextRange.Text
            End If
            Next
        End If
    End If
End Sub

Answer 2

我使用的解决方法是复制 SmartArt 并将其粘贴回来。
现在，粘贴的 SmartArt 的所有形状都包含在其 GroupItem 中。
使用这些后，我删除了粘贴的形状。