MAC环境下Excel VBA复制导入JPG图片失败求助

问题根源分析 #

你的代码存在几个关键错误，导致图片无法复制且出现Object Variable not set错误：

• 工作表对象赋值未使用Set关键字：VBA中对象类型变量必须用Set赋值，否则会触发对象未设置的错误。
• On Error Resume Next掩盖了真实错误：这条语句会跳过所有错误，导致你无法定位根本问题。
• 依赖Select和Selection操作：Mac Excel中这类选择操作的兼容性较差，且代码稳定性低。

修正后的代码 #

Sub CopyImageFromAcDiagram()
    Dim sourceSheet As Worksheet
    Dim destinationSheet As Worksheet
    Dim origPic As Shape
    
    ' 给工作表对象赋值必须用Set
    Set sourceSheet = ThisWorkbook.Worksheets("Arc Diagram")
    Set destinationSheet = ThisWorkbook.Worksheets("Executive Review")
    
    For Each origPic In sourceSheet.Shapes
        ' 先判断名称再检查类型，减少不必要的判断
        If origPic.Name = "ArchPicture" And origPic.Type = msoPicture Then
            ' 直接复制Shape到目标工作表指定位置，无需Select/Paste
            origPic.Copy
            destinationSheet.Paste Destination:=destinationSheet.Range("E1")
            
            ' 设置图片排版属性，直接操作刚粘贴的Shape
            With destinationSheet.Shapes(destinationSheet.Shapes.Count)
                .Placement = xlMoveAndSize
            End With
            Exit For ' 找到目标图片后直接退出循环，提升效率
        End If
    Next origPic
    
    'ThisWorkbook.Protect_This_Sheet
End Sub

关键修改说明 #

• 添加Set关键字：修复工作表对象赋值错误，解决Object Variable not set问题。
• 移除On Error Resume Next：让错误正常抛出，方便后续调试。
• 替换Select/Paste为直接粘贴到目标区域：避免Mac上选择操作的兼容性问题，代码更可靠。
• 操作粘贴后的Shape而非Selection：直接通过Shapes集合定位刚粘贴的图片，避免选择操作带来的不确定性。
• 添加Exit For：找到目标图片后立即退出循环，无需遍历剩余Shape。

内容的提问来源于stack exchange，提问作者Mark Eastwood