VBA复制工作表图片至新工作表报错求助（含代码）

Hey Hugo，我来帮你排查这个VBA图片复制的问题～

首先得说，你原代码里用的Select和Selection操作其实很不稳定——一旦工作表没有处于激活状态，代码很容易报错，而且这种写法也不是VBA的最佳实践。另外直接指定Picture (JPEG)格式粘贴，也可能因为原图片格式不匹配或者粘贴上下文出问题导致失败。

下面给你两个更可靠的解决方案：

方案1：直接复制单元格（包含图片） #

这个方法适用于图片嵌入在C3单元格内，或者刚好覆盖在C3上方的场景，代码简洁又稳定：

Sub CopyImageToWS()
    Dim targetWs As Worksheet
    ' 先确认目标工作表"ws"存在，这里直接引用，避免Select操作
    Set targetWs = ThisWorkbook.Sheets("ws")
    
    ' 复制源工作表C3单元格的所有内容（包括图片）
    ThisWorkbook.Sheets("Ficha_AMV").Range("C3").Copy
    ' 粘贴到目标工作表的C3，这里选择粘贴所有内容，也可以指定只粘贴图片
    targetWs.Range("C3").PasteSpecial Paste:=xlPasteAll
    ' 要是只想粘贴图片，把上面的xlPasteAll换成xlPastePictures就行
    
    ' 清除复制状态，避免Excel一直显示复制虚线框
    Application.CutCopyMode = False
End Sub

方案2：精准定位并复制C3位置的图片 #

如果C3区域有多个图片，你只想复制刚好落在C3范围内的那一个，可以用这个方法：

Sub CopySpecificImage()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim img As Shape
    
    Set sourceSheet = ThisWorkbook.Sheets("Ficha_AMV")
    Set targetSheet = ThisWorkbook.Sheets("ws")
    
    ' 遍历源工作表的所有形状，找到左上角在C3的图片
    For Each img In sourceSheet.Shapes
        If img.TopLeftCell.Address = "$C$3" Then
            img.Copy
            ' 粘贴到目标工作表的C3位置
            targetSheet.Paste targetSheet.Range("C3")
            Exit For ' 找到目标图片后直接退出循环
        End If
    Next img
    
    Application.CutCopyMode = False
End Sub

额外提醒两个细节：

• 要是ws工作表是新建的，记得先创建它，比如加一句：Set targetWs = ThisWorkbook.Sheets.Add: targetWs.Name = "ws"
• 如果运行代码时报错，检查下源工作表是不是被保护了，要是有保护的话，先解除保护再操作：sourceSheet.Unprotect Password:="你的保护密码"

内容的提问来源于stack exchange，提问作者Hugo Silva