VBA/파워포인트/사진정리 - 1. 사진 삽입

메인 프로시저 Main_InsertPictures(): 사진 삽입

메인은 두 개의 서브 프로시저를 사용한다. 하나는 폴더의 파일이름의 배열을 만들고 또 다른 하나는 사진을 삽입한다. 사용자가 입력해야 하는 입력값은 모두 메인에서만 처리한다. 사전 입력이 필요한 항목은 폴더 경로, 확장자, 슬라이드에 사진을 배치할 위치다.

Sub Main_InsertPictures()
    ' 사진 삽입 메인 프로시저
    ' 데이터
    Dim path As String, extension As String
    Dim positions() As Variant
    path = "Z:\Life\Upload\"
    extension = "*.*"
    positions = Array(Array(0, 0), Array(480, 0), Array(480, 270))
    
    ' get file list
    Dim files() As Variant
    Dim numberOfFiles As Integer
    files = GetFiles(path, extension)
    
    ' add pictures
    InsertPictures files, positions
End Sub

728x90

파일리스트 배열

VBA/파워포인트/사진정리 - 1.1. 파일명 배열

VBA/파워포인트/사진정리 - 파일명 배열

사진 삽입

VBA/파워포인트/사진정리 - 1.2. 사진 삽입 서브 프로시저

VBA/파워포인트/사진정리 - 사진 삽입 서브 프로시저