728x90
사진 정리
-
VBA/파워포인트/사진정리 - 1.2. 사진 삽입 서브 프로시저코딩/vba 2024. 1. 13. 00:21
폴더의 사진 파일을 슬라이드로 옮기는 프로시저다. 인수로 파일들, 배치 위치와 사진 폭을 받는다. 파일명과 배치 위치는 배열이기 때문에 참조로 전달받고 사진 폭은 값으로 전달 받는다. 처리할 방법은 아래와 같다. 처리할 파일의 수를 계산한다. 현재 슬라이드 번호를 변수에 저장한다. 반복되는 호출을 위해 현재 파워포인트를 객체화하고 새로 만드는 슬라이드를 위해 현재 레이아웃도 저장한다. 다음의 내용으로 Do..While문으로 사진 목록을 순환한다. 슬라이드를 추가하는 이유는 현재의 사진 ZOrder를 변경하면 사진의 인덱스가 바뀌기 때문에 전체 사진을 순환할 수 없어 새 슬라이드에 사진을 하나씩 복사하여 내보내며 ZOrder를 정리하기 위함이다. 이 순환은 i=0으로부터 시작하지만 순환할 때마다 i=i+3..