Microsoft Excel 사본 붙여 넣기 Powerpoint로 두 파일 모두 충돌이 발생합니다.

Question

Powerpoint로 Excel 범위를 복사하는 VBA 코드는 다음과 같습니다. 필자는 복사 붙여 넣기 명령이 올바르게 실행되도록하기 위해 다양한 지연을 추가하고 놀았지만 지연에 관계없이 파일이 손상되었습니다.

현재이 파일은 Do loop이며 루프를 종료하지 않고도 파일이 여전히 충돌합니다. 누군가가 몇 가지 지침을 제공 할 수 있다면, 그것은 크게 될 당신이 선언 설정 mySlide을 제대로 원하는 슬라이드로 가정

rng.Copy 
DoEvents 

Do 
    On Error Resume Next 
    mySlide.Shapes.PasteSpecial ppPasteBitmap '2 = ppPasteEnhancedMetafile 
    Set myShape = mySlide.Shapes(mySlide.Shapes.Count) 
    'Set position: 
    myShape.Left = 50 
    myShape.Top = 141 
    myShape.Width = 620 
    myShape.Height = 320 

    If Err.Number = 0 Then 
     On Error GoTo 0 
     Exit Do 
    End If 
Loop 

Answer 1

감사합니다, 다음 코드를 사용합니다

Dim myShape        As Object 

Set myShape = mySlide.Shapes.PasteSpecial(ppPasteBitmap) 

'Set position: 
myShape.Left = 50 
myShape.Top = 141 
myShape.Width = 620 
myShape.Height = 320