该AddPicture方法返回插入对象的句柄,因此您可以执行以下操作:
AddPicture
Set pic = objSelection.InlineShapes.AddPicture("C:\test.jpg") pic.Height = 100 pic.Width = 200