求助 | 如何批量将同一个工作簿下多个工作表中的图片设置随单元格改变位置和大小

桐桐的面包树

请大神们帮忙看下（见附件），工作表有几百个的~~

3190496160

Sub 批量设置()
For Each sh In Sheets
    For Each shp In sh.Shapes
        shp.Placement = xlMoveAndSize
    Next shp
Next sh
MsgBox "ok!"
End Sub

3190496160

桐桐的面包树

3190496160 发表于 2024-3-18 09:02

完美解决，谢谢大神