양면인쇄나 모아찍기를 위해서 일정한 위치마다 빈 슬라이드를 추가하고 싶을 때 쓰는 코드입니다. 예를 들어 매 4페이지 마다 빈 슬라이드 2개씩 삽입해야 하는 경우 슬라이드가 몇백장이라면 수작업 하는 것이 번거롭습니다. 이때 아래 코드로 빈 슬라이드를 삽입해줍니다. 특히 양면 인쇄를 하는 경우 다음 슬라이드와 구분이 필요할 때 빈 슬라이드가 꼭 필요 합니다. 2장씩 모아찍기를 한다면 빈 슬라이드를 2개 이상 넣어야할 수도 있습니다.  아래 코드는 일정 페이지마다 빈 페이지를 여러장 넣을 수 있습니다. stp 는 몇페이지마다 삽입할지이고cnt 는 빈 페이지를 몇개씩 삽입할지입니다. 파워포인트에서 Alt+F11 창을 켜고삽입 > 모듈을 하나 추가한 다음 아래 코드를 붙여넣고녹색 플레이 버튼이나 F5로 실행합니..

오디오 재생바를 순수 애니메이션으로 구현하고자 합니다.특히 재생바의 현재 위치 표시가 계속 오른쪽으로 이동하고진행시간을 실시간으로 업데이트해야 합니다. 그런데 지난 번 처럼 VBA Timer를 이용해서 표시하지 않고모두 애니메이션으로 구현합니다.그래야 동영상으로 내보내기가 가능합니다. 일반 애니메이션은 1분이라는 시간제한이 있으므로 일반 순차적인 애니메이션보다는오디오 책갈피(북마크) 트리거를 이용하는 것이 좋습니다.(오디오 책갈피 애니메이션은 VBA매크로가 아니라 순수 애니메이션효과이기 때문에 동영상으로 내보내기해도 그대로 작동합니다.)  오디오를 삽입하고 자동재생하게 한 다음1초마다 오디오에 책갈피를 삽입해서 해당 시간대에 도달하면재생바나 타이머 애니메이션이 호출되게 하는 것입니다.​오디오 트리거는 최..

관련: 지식인1, 지식인2  이번 미션은  엑셀에서 시트이름이 '양면3'이면 양면 3부 인쇄, '단면1'이면 단면 1부로 모든 엑셀 시트를 한꺼번에 일괄 인쇄하는 것입니다.  VBA로 원하는 인쇄 매수대로 인쇄하는 것은 쉬우나양면 인쇄는 VBA로도 설정하기 까다롭습니다.​한 가지 방법은 프린터를 하나 더 추가한 다음 양면으로 설정하고단면일 때는 프린터1을 현재 프린터(ActivePrinter)로 설정하고양면일 때는 프린터2를 현재 프린터(ActivePrinter)로 설정하는 방법이 있습니다. 여기서는 이 방법대신 새로운 프린터를 설정할 필요 없이 API를 이용해서 그때마다 양면/단면을 설정해서 인쇄하는 방법을 모색합니다. 아래와 같은 코드를 참고하였습니다. VBA7 환경(오피스2010이상)https://..

3D 프로그램이나 일러스트레이터에서 작업해야 합니다.​SketchUp 을 이용해 보았습니다.추가기능으로 FredoScale을 사용했습니다.​1. 설치는 아래 링크 참고하세요.https://ansenchoi.com/fredo%EB%A3%A8%EB%B9%84-%EC%9C%A0%EB%A3%8C%EB%A1%9C-%EB%B3%80%ED%96%88%EB%8B%A4%EA%B3%A0%EC%9A%94-%EB%AC%B4%EB%A3%8C%EB%A1%9C-%EC%82%AC%EC%9A%A9%ED%95%98%EB%8A%94-%EB%B0%A9%EB%B2%95-%EC%95%8C/​ Fredo Scale Download:https://m.blog.naver.com/jhk8967/222659615858   2. 특히 Radial Ben..

pptm 파일의 매크로는 해당 파일이 열린 상태여야만 실행이 가능합니다.다른 프레젠테이션을 작업하다가 필요할 때 pptm 을 열어야만 합니다.이렇게 번거로운 점이 있는데 항상 실행할 수 있도록 메뉴 추가기능으로 만드는 방법을 정리합니다. 매크로파일은 예시로 SaveAsImage.pptm 을 이용합니다. CustomUI.XML을 편집하는 방법은 여러가지가 있습니다.비쥬얼로 눈으로 직접 보면서 삽입하는 방법도 있는데 종종 오류가 발생합니다.Visual Studio가 설치되어 있다면 Visual Designer를 이용하는 것도 좋습니다.안정적으로 XML 텍스트를 편집하는 방법은 Ribon X Editor 를 이용합니다.1. RibonX Editor 에서 Open을 누르고 SaveImages.pptm 을 불러옵..

예를 들어 자막 파일이 있을 때 이 자막을 나눠서 여러 슬라이드에 삽입하고 싶은 경우입니다. 여기서는 텍스트를 엑셀파일에 정리하고 프레젠테이션의 마지막 슬라이드가 기준이 되어 해당 기준 슬라이드의 텍스트상자를 기준으로 자막 슬라이드를 일괄로 생성하는 조건입니다.​1. 작업 편의상 엑셀파일에 장문의 텍스트를 정리합니다. 텍스트 파일의 경우 단순히 줄바꿈을 기준으로 슬라이드를 나눌 수 있는데 여러 줄을 한 슬라이드에 넣을 때는 그 기준이 모호합니다. 그래서 여기서는 엑셀 행으로 슬라이드를 구분하도록 합니다. 한개의 행의 내용이 한 슬라이드에 들어갑니다. Shift+Enter를 쳐서 여러 줄을 넣을 수 있습니다. 만약 여러 행의 글인 경우 일단 A열의 특정셀에 붙여넣어 두고 우클릭해서 SplitByLines ..

VBA에서는 Set  Shp = 슬라이드(또는 시트).Shapes.AddShape (도형모양, 가로, 세로, 넓이, 높이) 와 같은 명령으로슬라이드에 도형을 삽입할 수 있습니다. 파워포인트에는 미리 정의된 여러가지 도형모양이 있습니다. 위의 도형 모양에 대한 예약어(MsoAutoShapeType)는 아래 링크에서 알 수 있습니다.https://learn.microsoft.com/en-us/office/vba/api/office.msoautoshapetype  그러나  AutoShapeType 이름으로는 화면상의 실질적인 도형모양 생김새를 미리 알기가 어렵습니다.어떤 도형이름을 사용해야 하는지 그림으로 보여주지 않습니다. 그래서 미리 정의된 도형이름 및 내부도형숫자(값)와 실질적인 도형모양을 직접 보여줄 ..

이번 미션은 위와 같이 1슬라이드에 프레젠테이션 목차가 있을 때슬라이드가 추가되거나 삭제될 때 목차슬라이드의 페이지 정보가 자동으로 업데이트되게 만드는 것이 목표입니다.  아래한/글의 경우 도구 > 제목차례 표시를 하고  '차례 만들기' 기능 > '차례 코드로 모으기'를 이용해서 목차 차례를 자동으로 만들 수 있습니다.  MS Word 에서도 위와 비슷한 기능을 지원합니다.제목 스타일을 지정하고 참조 - 목차 - 사용자 지정 목차 를 선택해서 차례를 만들 수 있습니다. 나중에 아래한/글에서는 차례 새로고침을 누르거나  워드의 경우 필드 업데이트 > 페이지 번호 업데이트를 눌러주면 자동으로 페이지 번호가 수정됩니다.  아쉽지만 파워포인트에서는 제목 차례/ 목차 페이지 번호 업데이트와 같은 기능을 지원하지 ..