Excel Vba将图片复制到新工作表
我有以下vba代码复制现有的工作表数据到新的工作表，它工作正常，但它不会复制工作表中的图片文件（eg.jpg），我怎样才能复制图片文件以及？ 谢谢。
Set source2 = Worksheets("today").Range("A5:l68") Sheets.Add After:=Sheets(Sheets.Count) Set dest2 = ActiveWorkbook Source2.Copy With dest2.Sheets(2) .Cells(1).PasteSpecial Paste:=8 .Cells(1).PasteSpecial Paste:=xlPasteValues .Cells(1).PasteSpecial Paste:=xlPasteFormats .Cells(1).Select Application.CutCopyMode = False End With 我认为这个问题是复制和粘贴从一张图片到另一张图片 ，无论您可以使用下面的代码…这应该粘贴图片到大约相同的位置原始工作表。
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
尝试使用：
Sheets("today").Copy After:=Sheets(Sheets.Count)