以下是一个可以在PPT中更改图片大小的JS宏:
Sub ResizePictures()
Dim sld As Slide
Dim shp As Shape
Dim w As Integer, h As Integer
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.Type = msoPicture Then
w = shp.Width / 2 '