Excel Vba 그림 복사 새 시트

나는 아래의 VBA 코드를 기존 워크 시트 데이터를 새 워크 시트로 복사합니다. 제대로 작동하지만 그림 파일 (예 : .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")) 선택 선택. 복사 시트 ("Sheet3") 선택 ActiveSheet.Paste –

시도했지만 작동하지 않음 – robin

보십시오 : 코드가 작동 예 도와

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

출처

2017-10-20 15:47:48

안녕하세요,이 코드는 전체 워크 시트를 복사하지만 특정 셀 범위 만 복사하려고합니다. 어쨌든 당신의 도움에 감사드립니다. – robin

Excel Vba 그림 복사 새 시트

답변

관련 문제