VBA excel + 粘贴特殊形状

Question

我在作品中插入图片（并保存在文档中）时遇到问题sheet。我不是VBA这方面的专家，所以我真的需要有人帮我找出错误。

代码如下：

copy/paste image0 Sheets("Ficha_AMV").Select Range("c3").Select Selection.Copy ws.Select Range("c3").Select 'ActiveSheet.Paste ActiveSheet.PasteSpecial Format:="Picture (JPEG)", Link:=False, _ DisplayAsIcon:=False

所以在sheet"Ficha_AMV"中的C3我有一张图，我的目标是复制到新作品sheet("ws")。我需要将这张图片保存在 ws worksheet 中（不带 link）。

所以我尝试了

activesheet.paste 并用 link

复制

然后我尝试了

ActiveSheet.PasteSpecial Format:="Picture (JPEG)", Link:=False, _DisplayAsIcon:=False

并返回以下错误

Run-time error '1004':PasteSpecialo method of Worksheet class failed

Answer 1

如果它已经作为图片存在，则使用对象的名称

Option Explicit

Sub test()

    Dim wb As Workbook
    Dim wsSource As Worksheet
    Dim ws As Worksheet

    Set wb = ThisWorkbook
    Set wsSource = wb.Worksheets("Ficha_AMV")
    Set ws = wb.Worksheets("Sheet1")             'change as appropriate

    Dim pic As Shape

    Set pic = wsSource.Shapes("Picture 2")       'change as appropriate

    pic.Copy
    ws.Range("C3").PasteSpecial

End Sub

如果还不是图片使用：

Option Explicit

Sub test()

    Dim wb As Workbook
    Dim wsSource As Worksheet
    Dim ws As Worksheet

    Set wb = ThisWorkbook
    Set wsSource = wb.Worksheets("Ficha_AMV")
    Set ws = wb.Worksheets("Sheet1")             'change as appropriate

    wsSource.Range("C3").CopyPicture
    ws.Range("C3").PasteSpecial

End Sub

VBA excel + 粘贴特殊形状

VBA excel + PAste special shapes

vba

image

paste