イメージ画像ホルダーを挿入するvba powerpointを

Question

私は他のプレゼンテーションからパワーポイントプレゼンテーションを生成するExcel VBAマクロをプログラミングしています。最後に、コンテンツスライドが生成されます。トピックに応じて、スクリプトはこのトピックの関連する画像を画像プレースホルダにコピーする必要があります。現時点では、コンテンツスライドには正しいテキストボックス（トピック名）が入力されていますが、画像を挿入しても機能しません。すべてのスライド

て

1. ループあなたはその後、「コンテンツ」という名前の形状のスライドを見つけた場合：：

   Intentend擬似コード

2. コピーに「画像パス」にある画像画像プレースホルダー「FeaturePic2」（例えば）。

私はコードを例に縮小しましたが、これはうまくいきません。コードの役割は次のとおりです。 "Content"という名前の図形がなくても、画像パス画像を各スライドにコピーします。次に、「FeaturePic2」（このスライドの2番目のプレースホルダー）には挿入されませんが、見つかった最初のプレースホルダーが挿入されます。

'<<BEGIN>> 
On Error Resume Next 
template_path = "C:\test\test.pptx" 
image_path = "C:\test\test.jpg" 
Set pres_template = pptApp.Presentations.Open(template_path) 


For Each slide In pres_template.Slides 

     If Shape.Name = ("Content") Then 
     slide.Shapes.Placeholders("FeaturePic2").Select msoTrue 
     slide.Shapes.AddPicture Filename:=image_path, LinkToFile:=False, SaveWithDocument:=True, Left:=10, Top:=10 
     End If 

Next slide 

'<<END>> 

追加の質問：特定の名前のプレースホルダを削除するにはどうすればよいですか？

事前に敬具と感謝

Answer 1

以下の変更は、「コンテンツ」という名前の画像があると仮定して、正しい画像を得ることを支援する必要があります

On Error Resume Next 
template_path = "C:\test\test.pptx" 
image_path = "C:\test\test.jpg" 
Set pres_template = pptApp.Presentations.Open(template_path) 

' Always DIM your variables and 
' Never use reserved names as variable names 
' 
Dim oSl as slide 
Dim oSh as shape 

For Each oSl In pres_template.Slides 
    For each oSh in oSl.Shapes 

     If oSh.Name = ("Content") Then 
     oSl.Shapes.Placeholders("FeaturePic2").Select msoTrue 
     oSl.Shapes.AddPicture Filename:=image_path, LinkToFile:=False, SaveWithDocument:=True, Left:=10, Top:=10 
     End If 

Next ' slide 

次に、いくつかの特定の理由があります画像を新しい絵の形として追加するのではなく、プレースホルダに置くためのものですか？それはより簡単で信頼性の高いものになります。

プレースホルダを使用する必要がある場合、ダミーテキストやその他のコンテンツを任意のプレースホルダに配置する必要があります。その場合、画像をランダムにドロップしないでください。