Sub ResizePictures() Dim pic As Picture For Each pic In ActiveSheet.Pictures If pic.TopLeftCell.Row >= 9 And pic.TopLeftCell.Row <= 16 Then pic.ShapeRange.LockAspectRatio = msoFalse pic.Width = pic.TopLeftCell.Width pic.Height = pic.TopLeftCell.Height End If Next pic End Sub

Excel VBA: 自动调整 L9 到 L16 区域图片大小

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

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