如何修改VBA宏代码，使其对所有工作表的图片属性生效？

你只需要添加工作表遍历循环，将原来针对ActiveSheet的操作，改为遍历当前工作簿的每一个工作表即可。修改后的完整代码如下：

Sub AutoMoveAndSizeWithCells()
    Dim ws As Worksheet ' 新增：声明工作表对象
    Dim xPic As Picture
    
    ' 新增：遍历当前工作簿的所有工作表
    For Each ws In ThisWorkbook.Worksheets
        For Each xPic In ws.Pictures ' 将ActiveSheet替换为当前遍历的工作表ws
            xPic.Placement = xlMoveAndSize
        Next xPic
    Next ws
End Sub

关键修改点： #

• 新增Dim ws As Worksheet声明，用于存储遍历到的每个工作表
• 外层添加For Each ws In ThisWorkbook.Worksheets循环，逐个处理工作簿里的所有工作表
• 将ActiveSheet.Pictures替换为ws.Pictures，确保操作针对当前遍历的工作表

内容的提问来源于stack exchange，提问作者Arsham Gharbi