WPS batch resize macro

1 sub batch adjust image size () 2 '3' modify image macro 4' macro recorded by zxz, time: 5 'batch adjust image size, avoid the picture being too large to show incomplete 6 7' loop image set 8 for each ishape in activedocument. inlineshapes 9' to restore the aspect ratio to 100% 10 ishape. scaleheight = 10011 ishape. scalewidth = 100' divide the Image Width by 10012 to get a width ratio of 13 myscale = 500/ishape. width14' if the obtained width ratio is less than 1, the image width exceeds 50015 if myscale <1 then16', the image width is reduced to 500, and the height is automatically adjusted to 17 ishape. scaleheight = mysize * 10018 ishape. scalewidth = myscale * 10019 end if20 next ishape21 22 end sub

 

WPS batch resize macro