ppt更改图片大小的js宏

以下是一个可以在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 '更改为你想要的宽度'
                h = shp.Height / 2 '更改为你想要的高度'
                shp.ScaleWidth w, msoFalse, msoScaleFromTopLeft
                shp.ScaleHeight h, msoFalse, msoScaleFromTopLeft
            End If
        Next shp
    Next sld
End Sub

这个宏会遍历演示文稿中的每一张幻灯片和每一个形状，并检查形状是否为图片。如果是图片，则会将图片的宽度和高度设置为指定的大小。你可以根据需要更改 `w` 和 `h` 的值，以调整图片的大小。