나눔터  
  HOME > 나눔터 > 묻고답하기 > 파워포인트
파워포인트
파워포인트에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 황현태 (hht117)

추천:  3
파일:     조회:  1392
제목:   슬라이드사진삽입
     
  - 파워포인트 버전:2007
* 아래줄에 질문을 작성하세요 >> 
안녕하세요.
상기제목과 같은 작업을 하려고 합니다.
예로 사진이 100장 있는데, 사진을 각 슬라이드에 한장씩 넣으려고 합니다. 각슬라이드마다 삽입=그림-추가 이렇게 100장을 만들어야 하나요?
일괄적으로 하는 방법이 있을듯 합니다.
사진 100장을 각 슬라이드로 삽입방법. 슬라이드 100장이 되어야 겠죠?
감사합니다. 
 
[불량 게시물 신고]  
dew아래 모듈을 붙여넣기하시고 실행하시면됩니다.
사진화일은 C:\Pictures\sam_1.jpg ~ sam_100.jpg 있는 것으로 가정

Sub AddPicture_Example()
    Dim iX As Integer
    Dim pptSlide As Slide
    Dim pptLayout As CustomLayout
 
    Set pptLayout = ActivePresentation.Slides(1).CustomLayout
    
    For iX = 1 To 100
        Set pptSlide = ActivePresentation.Slides.AddSlide(1, pptLayout)
        pptSlide.Shapes.AddPicture FileName:="C:\Pictures\sam_" & ix & ".jpg", _
            LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100 
    Next
End Sub
09-13 (16:35)
삭제 ■신고
        
  

작성일 : 2018-04-07(14:30)
최종수정일 : 2018-04-07(14:30)