Excel Vba将图片复制到新工作表

Question

我有以下vba代码将现有工作表数据复制到新工作表，它工作正常，但它不会在工作表中复制图片文件（eg.jpg），我怎样才能复制图片文件？谢谢。

readJSON

Answer 1

我认为这个问题与copy & paste a picture from one sheet to another重复，无论您是否可以使用以下代码......这应该将图片粘贴到与原始图纸大致相同位置的新图片。

Sub MG15Jun43
Dim pic As Shape, rng As Range
For Each pic In ActiveSheet.Shapes
   If pic.Type = msoPicture Then
     pic.Copy
     With Sheets("Sheet2")
        .Select
        .Range(pic.TopLeftCell.Address).Select
        .Paste
     End With
     Selection.Placement = xlMoveAndSize
   End If
Next pic
End Sub

Answer 2

尝试使用：

Sheets("today").Copy After:=Sheets(Sheets.Count)