Excel 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

私は、これは、元のシートとして約同じ位置にある新しいSHTに写真を貼り付ける必要があります...かかわらず、あなたは以下のコードを使用することができ、この質問は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

出典

2017-10-20 15:45:05

やあ、あなたの助けに感謝しますが、はい、あなたのコードが動作しているが、それは形だけのオブジェクト、JPEGファイルをコピーしてコピーしないで、同様にJPEGファイルをコピーする方法任意のアイデアを？ – robin

ActiveSheet.Shapes.Range（アレイ（ "写真2"））。 Selection.Copy シート（ "シート3"）を選択します。 –

が試み ActiveSheet.Pasteを選択しますが、私のため – robin

使用してみてください：

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

出典

2017-10-20 15:47:48

このコードでは、ワークシート全体をコピーしますが、特定のセル範囲のみをコピーします。とにかく助けてくれてありがとう。 – robin

Excel VBA画像を新しいシートにコピー

答えて

関連する問題