代码之家 › 专栏 › 技术社区 › Arie Livshin

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

powerpoint-vba powerpoint vsto vba

Arie Livshin · 技术社区 · 16 年前

我需要在PowerPoint2007中浏览每一种形状的智能艺术。什么时候? shape.Type=msoSmartArt 然后我可以简单地浏览shape.groupitems中的形状。

然而,何时 shape.Type == msoPlaceholder && shape.PlaceholderFormat.ContainedType==msoSmartArt 然后 shape.GroupItems 是空的。在这种情况下,如何访问智能艺术形状?

我以前认为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 (当形状类型为占位符,而containedType为SmartArt时)。

有什么想法吗?

2 回复 | 直到 15 年前

Todd Main 16 年前

使用 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

Arie Livshin 15 年前

我使用的解决方法是复制并粘贴SmartArt。粘贴的SmartArt现在在其GroupItem中具有所有形状。处理完这些后,我删除粘贴的形状。

推荐文章

Joshua Abraham Yuan · 如何使用powerpoint vba,在右侧显示选择面板,在左侧显示以下面板,并将其展开-填充、大小、图片

4 年前

Ricardo Prida · Apache POI Powerpoint,XMLSlideShow。找不到createChart()

8 年前

Lack Dranem · VBA查找和读取多个范围

8 年前

Adam Shakhabov · 打开XML SDK:“进程无法访问文件“x”,因为它正被另一个进程使用。”

8 年前

JeroenW · 如何在VBA(PowerPoint)中检查随机幻灯片上文本框内的文本?

8 年前

TechGeek · Power Point VBA-更改每个条形图的颜色

8 年前

user6089076 · Powerpoint中存在形状

8 年前

pptbot · Powerpoint VBA选择幻灯片特定区域内的所有形状

8 年前

zinon · Powerpoint无法显示带有标题的视频。我看到绿色屏幕

8 年前

Iliya Markov · 仅在PowerPoint幻灯片放映中的某些幻灯片上自动暂停播放声音

8 年前