Excel VBA中的圖片複製到新的工作表

我有以下VBA代碼複製現有工作表數據到新的工作表，它的正常工作，但它不會複製工作表中的圖片文件（eg.jpg），我怎麼能複製圖片文件好？謝謝。Excel VBA中的圖片複製到新的工作表

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

來源

2017-10-20 robin

我認爲這個問題是copy & paste a picture from one sheet to another重複，無論您可以使用下面的代碼...這應該粘貼在大約相同的位置，原片的圖片到新的SHT。使用

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

來源

2017-10-20 15:45:05

您好，感謝您的幫助，是你的代碼工作，但它僅複製形狀對象，JPEG文件不能複製，任何想法如何複製JPEG文件以及？ – robin

ActiveSheet.Shapes.Range（Array（「Picture 2」））。Select Selection.Copy Sheets（「Sheet3」）。請選擇 ActiveSheet.Paste –

已嘗試但不工作 – robin

嘗試：

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

來源

2017-10-20 15:47:48

嗨這個代碼複製整個工作表，但我想複製某些細胞範圍只。無論如何感謝您的幫助。 – robin

Excel VBA中的圖片複製到新的工作表

回答

相關問題