I have a vba script which creates slides based on the contents of a Word file. The steps are:


  • add a new slide (mySlide). It has placeholders for a title and bodytext
  • copy text from the Word file to the title and bodytext.
  • add a picture using mySlide.Shapes.AddPicture Normally this works fine and creates 3 shapes which I can then size as required.

However if the bodytext is empty the picture is added to the bodytext shape rather than as a new shape which complicates further processing considerably.

How can I ensure .AddPicture always creates a third shape on the slide?