
excel
Sub test()Dim xPic As ShapeFor Each xPic In ActiveSheet.ShapesIf xPic.Type = 13 ThenxPic.LockAspectRatio = TruexPic.Width = xPic.Width / 4End IfNextEnd Sub
如果想要调整图片的粗体字大小,可以根据需要自行设置一个合适的数字。如果不进行修改,则所有图片都将变为原来大小的1/4即1/16。最后,按下F5键运行此宏即可完成操作。这样就能够快速调整excel中插入的图片大小了。
Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号