• 日期: 2025-08-13
  • 标签: 常规

Sub AutoFitPic() Dim pic As Picture For Each pic In ActiveSheet.Pictures pic.ShapeRange.LockAspectRatio = msoFalse pic.ShapeRange.Width = pic.Width / pic.ShapeRange.ScaleWidth(1, msoFalse) * 100 pic.ShapeRange.Height = pic.Height / pic.ShapeRange.ScaleHeight(1, msoFalse) * 100 Next pic End Sub


原文地址: https://www.cveoy.top/t/topic/mAJm 著作权归作者所有。请勿转载和采集!

免费AI点我,无需注册和登录