插入图像图像占位符excel vba powerpoint

Question

I am programming an excel VBA macro, which generates a powerpoint presentation from other presentations. Finally a content-slide is generated. Depending on the topics the script should copy the related pictures of this topic to image place holders. At the moment the content slide is populated with the correct text boxes (topic names), but inserting the images does not work.

Intentend pseudo-code:

1. Loop through all slides
2. If you find a slide with a shape named "Content" then:
3. Copy the image located at "image-path" to the image placeholder "FeaturePic2" (for example).

I reduced the code to an example, which does not work. What the code does is: Copying the image-path-picture to each slide, even if there is no shape named "Content". Secondly it does not populate "FeaturePic2" (which is the second place holder on this slide), but populates the first placeholder it finds.

'<<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>>

Additional question which might be helpful, too: How can a place holder with a certain name be deleted?

Kind regards and thanks in advance

Answer 1

The changes below should help with getting the correct picture, assuming that there IS a picture named "Content":

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

Next, is there some specific reason for putting the picture into a placeholder rather than just adding it as a new picture shape? It'd be a great deal simpler/more reliable.

If you MUST use a placeholder, you'll probably have to put dummy text or other content into any placeholders you don't want the picture to drop into randomly, then remove the dummy text later.