Vba 将照片添加到OrgChart（smartart layout 98）

这个问题太简单了，我很不好意思问。我想在PowerPoint中将照片添加到组织结构图中。我使用的是

SmartArtLayout（98）

，这是一种带有图像槽的

orgchart

。我曾尝试按照

IntelliSense

的建议到达这个位置，但结果一无所获。 我一直在用谷歌搜索这个特定形状的任何

对象模型

，但我找不到任何东西。你能帮忙吗？我想一定是在以下几点之后：

ActivePresentation.Slides(1).Shapes(1).SmartArt.Nodes(1).

但是什么呢？ 我甚至尝试在Excel中绘制组织结构图并记录一个宏，但插入的照片没有记录。

我认为：

SmartArtNode.Shapes.Item（1）.Fill.UserPicture“c:\somepath\picture.jpg”

例如

我认为你需要做一些修改。下面的想法只在插槽中显示图像

Option Explicit

Sub test()

Dim oSALayout As SmartArtLayout
Dim myNode As SmartArtNode
Dim oShp As Shape

Set oSALayout = Application.SmartArtLayouts(98)

ActivePresentation.Slides(1).Shapes(3).SmartArt.Layout = oSALayout

Set oShp = ActivePresentation.Slides(1).Shapes(3)

Set myNode = oShp.SmartArt.AllNodes.Add

With myNode.Shapes(2).Fill

    .UserPicture "C:\Users\User\Desktop\XmasTree.jpg"

End With


End Sub

---

这会将图像置于形状的背景中。我想它在节点上，在专用的插槽里。我认为是可行的，只需要做一些摆弄。例如，以下内容也插入到myNode.Shapes.Fill的专用插槽中：。UserPicture“C:\Users\me\Desktop\XmasTree.jpg”，但如果可能的话，需要混淆背景以使其不可见。我认为答案是正确的。关于初始代码，它看起来是这样的：

ActivePresentation.Slides（1）.Shapes（1）.SmartArt.Nodes（1）.Shapes（1）.Fill.UserPicture“m:\Documents\…full…path…to…file.jpg”

。经过考验。如果不工作，请在您的问题中添加更多信息。我上面看到的答案是不正确的。我在这里看到了正确的答案，但它被删掉了，我不知道是什么原因。我在等它回来把问题标记为已回答。我已经把它放回去了。只是它当时对我有用，所以我删除了它，因为我不能自信地复制它。我有点担心这个帖子。欢迎反馈，我将编辑答案。

Option Explicit

Sub test()

Dim oSALayout As SmartArtLayout
Dim myNode As SmartArtNode
Dim oShp As Shape

Set oSALayout = Application.SmartArtLayouts(98)

ActivePresentation.Slides(1).Shapes(3).SmartArt.Layout = oSALayout

Set oShp = ActivePresentation.Slides(1).Shapes(3)

Set myNode = oShp.SmartArt.AllNodes.Add

With myNode.Shapes(2).Fill

    .UserPicture "C:\Users\User\Desktop\XmasTree.jpg"

End With


End Sub