파워 포인트에서 그림 크기 조정 및 이동

Question

파워 포인트에 파일을 붙여 넣을 수있는 다음 VBA 코드가 있습니다. 나는 작동하지만 붙여 넣기 후에 크기를 지정하고 (조금 작게) 오른쪽 상단 모서리로 옮기고 싶습니다.

이 작업을 수행하기 위해 아래 코드를 어떻게 변경해야합니까?

친애 관련,

마크 대신에이 비트의

Sub OpenPPT() 


Dim pptapp As PowerPoint.Application 
Dim ppt As PowerPoint.Presentation 
Dim slide As PowerPoint.slide 
Dim shape As PowerPoint.shape 

var2 = "C:\Documents and Settings\aa471714\Desktop\Presentation1.ppt" 

Set pptapp = CreateObject("Powerpoint.Application") 
Set ppt = pptapp.Presentations.Open(var2) 
Set slide = ppt.Slides(1) 
Set shape = slide.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 100, 100) 

pptapp.Visible = True 

With slide 

.Shapes.Paste 

End With 

End Sub 

Answer 1

:

With slide 
    .Shapes.Paste 
End With 

대체이 :

Set shape = slide.shapes.paste(1) 
With shape 
    .Left = 100 ' or whatever 
    .Width = 500 ' or whatever 
End With