如何用vba设置ppt幻灯片中的图片尺寸与幻灯片的尺寸一样全覆盖?

有时候,我们希望在ppt中每个幻灯片中都插入一个图片,然后让图片覆盖整个幻灯片大小,相当于一个幻灯片就是一个图片。
在VBA中,可以用ppt的PageSetup对象的SlideWidth和SlideHeight属性先读取每页幻灯片的宽度和高度。
然后将图片Shape对象的宽度和高度设置为PageSetup对象的SlideWidth和SlideHeight属性值。
代码如下:





       

发表评论