組織図（SmartArtグラフィックレイアウト98）

Question

に写真を追加する。これは、私が聞いて非常に恥ずかしい思いますので、簡単な質問です。 PowerPointの写真を組織図に追加したいと思います。私はSmartArtLayout(98)を使用しています、これはorgchartの種類の画像のためのスロットです。私はIntelliSenseの提案に続いてこのスロットに到達しようとしましたが、それは私をどこにも導きませんでした。 私はこの特定の形状のためにobject modelのためにGoogleにしようとしていますが、私は何かを見つけることができません。手伝ってくれる？私はそれが後に何かでなければならないと思います：

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

何ですか？ 私はExcelでの図を描画してマクロを記録しようとしましたが、写真の挿入は記録されませんでした。

Answer 1

私はhereあたりのようだと思う：

SmartArtNode.Shapes.Item（1）.Fill.UserPicture "C：\ somepath \ picture.jpg" 例えば

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