Excel Vba Copier Image vers une nouvelle feuille

Question

J'ai ci-dessous vba codes copier des données de feuille de calcul existantes à la nouvelle feuille de calcul, ça fonctionne très bien, mais il ne copiera pas le fichier images (eg.jpg) dans la feuille de calcul, comment puis-je copier le fichier image bien? Je vous remercie.

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 

Answer 1

Je pense que cette question est un double de copy & paste a picture from one sheet to another, quelle que soit vous pouvez utiliser le code ci-dessous ... Cela devrait coller des images à nouveau SHT en position environ identique à feuille d'origine.

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

Essayez d'utiliser:

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