붙여 넣기 스페셜에서 스페셜에서 파워 포인트 2013까지 잘린 모양

Question

파워 포인트 슬라이드에 엑셀 데이터를 복사해야하지만 붙여 넣기 후에 모양이 잘리는 경우가 있습니다.

Set myShape = mySlide.Shapes("obj" & i) 
    mySlide.Shapes.PasteSpecial DataType:=2 
    Set newShape = mySlide.Shapes(mySlide.Shapes.Count) 
    newShape.LockAspectRatio = msoFalse 
    newShape.Left = myShape.Left 
    newShape.Top = myShape.Top 
    newShape.Height = myShape.Height 
    newShape.Width = myShape.Width 

    myShape.Delete 

내가 그래서 내가 먼저 모양을 얻을하고 새로운 모양 속성을 설정 그 속성 같은 기존의 형태를 교체 한 후 삭제해야합니다

이 내 코드입니다. 내가 코드를 실행하기 전에

이 모양이있다 : 모양 후

이있다 (절단) : 나는 또한하지만 헛된 다른 데이터 유형을 시도했다.

Answer 1

코드를 디버깅 할 때 문제가 해결되었습니다. 문제는 코드를 실행할 때 범위 배열이 변경된다는 것입니다. 그래서 그것을 고친 후에 모양보다 더 잘립니다.