本示例在活动文档中插入一个新的空白图片并选中。

Dim ishapeNew As InlineShape
Set ishapeNew = ActiveDocument.InlineShapes.New(Range:=Selection.Range)
ishapeNew.Select