Question

这是一个非常简单的问题，我很尴尬地问。我想在PowerPoint中添加照片到组织结构图。我使用的是SmartArtLayout(98)，这是orgchart的一种带图像的插槽。我试过在IntelliSense建议之后到达这个位置，但它让我无处可去。我一直试图谷歌任何object model这个特定的形状，但我找不到任何东西。你能帮忙吗？我猜它一定是以后的事情：

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

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

Answer 1

我认为按照here：

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

E.g。

With QNode.Shapes.Item(1).Fill
    .Visible = msoTrue
    .UserPicture "c:\somepath\picture.jpg"
    .TextureTile = msoFalse
End With

我认为你需要做一些摆弄以下想法确实只在插槽中显示图像

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

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

1 个答案: