관련 : 지식인  예를 들어서 3~7슬라이드는 제대로 보여주고 나머지 슬라이드는 블러처리해서 클라이언트에게 미리 보여주는 상황입니다. 파워포인트에 이런 기능은 없습니다.​​직접 처리하자면 파일을 다른 이름으로 저장에서 모든 슬라이드를 그림으로 저장하고 그래픽 소프트웨어로 일부 슬라이드그림만 블러 처리해서 저장한 다음 다시 파워포인트에서 삽입 > 사진 앨범으로 사진들을 일괄 삽입해서 PPTX로 저장하거나 PDF로 저장해야 합니다.​​이 과정을 VBA로 자동으로 처리할 수 있습니다.Const BindingMargin As Single = 0 '제본시 왼쪽 여백'저장 이미지 형식Const ImgType = "PNG"'블러(모자이크) 제외 슬라이드Const PageFrom = 3Const pageT..

위와 같은 물결무늬 디자인을 파워포인트에서 만드는 방법입니다. 관련: 지식인 반복되는 선은 인터넷에서 검색해서 이미지로 받을 수도 있지만 곡선과 파워포인트 VBA를 이용해서 만들 수도 있습니다. ​ 0. 첨부파일을 다운로드하고 파일속성에서 차단해제 체크/확인하시고 파일을 열 때 매크로를 허용합니다. ​ 1. 슬라이드에 '곡선' 도형을 이용해서 2개의 곡선 도형을 그려주세요. 점편집을 이용해서 서로 겹치게 하거나 회전 각도를 조절해도 됩니다. 중간에 생성되는 선들은 첫번째 선의 속성을 따라갑니다. 선의 두께나 색상을 조절하세요. ​ 2. alt-F8을 누르고 매크로를 실행합니다. ​ 3. 아래와 같이 두 곡선 사이에 선을 추가해줍니다. ​ 4. 이 곡선의 투명도나 색깔을 편집하고 마우스 우클릭해서 그림으로..

관련 : https://konahn.tistory.com/entry/Export2PDF 지식인 링크: https://kin.naver.com/qna/detail.naver?d1id=1&dirId=102020103&docId=467310111 특정 폴더 내의 모든 pptx 파일에 대해 내부의 모든 슬라이드를 그림(png)으로 내보내기할 수 있습니다. VBA코드: 더보기 Option Explicit 'Const TargetFolder = "C:\Temp" '따로 결과파일을 저장할 폴더가 있을 경우 Const TargetFolder = "" 'ppt파일이 있는 폴더에 저장 Const Ext = ".png" '변환 확장자 Const Zoom = 3 '저장 비율 Sub Export2PNG() Dim tPrs As..

관련: 지식인 일반적인 방법으로는 슬라이드 편집화면에서 슬라이드가 바뀔 때마다 동영상이 자동으로 재생되게 할 수는 없습니다. ​ 재생 탭의 '자동 실행'은 슬라이드쇼에서 슬라이드 진입하자 마자 자동으로 재생하는 옵션입니다. ​ 유일한 방법은 영상을 선택하고 '반복 재생'에 체크된 상태에서 왼쪽의 '재생' 버튼을 눌러주는 방법밖에 없습니다. 슬라이드가 바뀌면 정지됩니다. ​ ​ 일반적인 방법으로는 비디오를 계속 재생시킬 수 없는데 아래 링크 답변은 파일을 열자마자 비디오 재생을 포함한 애니메이션을 강제로 반복 재생시키는 예시입니다. https://kin.naver.com/qna/detail.naver?d1id=1&dirId=102020103&docId=405978606 그리고 비디오의 경우는 미리보기를 해..

위와 같이 선이 그려지는 그리기 애니메이션을 생성하는 방법입니다. 파워포인트의 나타나기 효과로는 선이 그려지는 효과를 구현하기 어렵습니다. 파워포인트 2019 이상에서는 새로운 그리기 메뉴가 있고 여러가지 펜 및 잉크 기능이 소개되었습니다. 특히 잉크를 재생할 수 있는 Ink Replay 기능이 추가되었습니다. 이 잉크 재생기능을 활용해서 원하는 모양대로 화면에 선을 그어주는 애니메이션을 구현해보도록 하겠습니다. 만약 직선을 그리려면 잉크를 그릴 때 눈금자를 대고 직접 그려줄 수 있습니다. Shift-F6 으로 눈금자 모드를 켜고 Alt+방향키로 15도씩 회전할 수 있습니다. 그런데 자를 대고 선을 긋는 것은 비효율적이고 자를 회전하는 것이 무척 번거로운 작업입니다. 그래서 미리 그려진 Freeform ..

소개 실제 슬라이드 순서를 건드리지는 않고 100개의 슬라이드에서 랜덤으로 배열(추출)된 5개 문제슬라이드로 차례대로 이동하고 재시작 또는 종료하는 예제입니다. 조건 슬라이드 순서를 그대로 유지(바꾸지 않기) 등 다음 슬라이드를 누르면 다음 랜덤 슬라이드로 이동 마지막에 종료 메시지 출력 종료 후 다시 시작하면 다른 랜덤 5슬라이드로 이동. 무한 반복 구현 슬라이드쇼 재구성을 이용해서 실행할 때마다 사용자정의 슬라이드쇼를 생성 시작을 누르면 새로운 슬라이드쇼를 시작 (화면이 새로 시작하는 단점이 있음) 모든 슬라이드 순서를 슬라이드 ID로 구분해서 랜덤 재배열해서 처음 5개만 추출하여 쇼를 재구성 5슬라이드 후 마지막 슬라이드로 이동 재시작을 누르면 다시 다른 쇼를 재구성하여 시작 슬라이드쇼 종료시 재구..

관련: 지식인 엑셀은 셀이 작아서 Alt키를 누른 채로 마우스로 도형을 움직이면 자석처럼 맞춰줍니다. 하지만 파워포인트는 테이블(표)의 크기가 다양해서 그런지 표의 경계에 맞게 이동시켜주지 않습니다. 단축키는 따로 없는 것으로 압니다. ​ 방법은 표의 경계선에 맞게 가이드를 추가하는 것입니다. 보기 > 눈금자를 켜고 마우스로 가로와 세로로 가이드를 그려야 하는데 셀이 많으면 번거롭고 경계선에 맞게 그리는 것도 어렵습니다. ​ 이 때 아래 VBA코드를 이용하면 자동으로 눈금자를 그릴 수 있습니다. 표(테이블)의 셀의 경계에 맞춰서 도형을 이동하고자 할 때 편하게 맞출 수 있도록 가이드(Guide)선을 자동으로 추가하는 코드입니다. alt-F11 창에서 삽입 > 모듈을 추가하고 나서 코드를 붙여넣고 코드창을..

10초 시간 제한이 있는 퀴즈 게임입니다. 물론 제한 시간은 변경 가능합니다. 여기서 문제는 10초 시간이 지나면 시간 초과라는 메시지가 뜨고 확인을 누르면 다음 슬라이드로 넘어가는 것을 구현해야 합니다. 각 문제 슬라이드마다 10초 애니메이션을 적용하고 전환 시간에 10초를 적용하면 됩니다만 다음 슬라이드로 넘어가는 순간을 알아내기 어렵습니다. - OnSlideShowPageChange 로 슬라이드 이동을 감지하다가 페이지가 바뀌었을 때 이전 슬라이드의 진행시간이 10초를 넘었다면 시간초과 메시지를 띄우는 방식이 가능합니다. 하지만 슬라이드가 넘어가고 나서 메시지가 뜨기 때문에 혼동을 줄 수 있습니다.물론 문제 사이마다 빈 슬라이드를 넣을 수도 있으나 너무 거추장스럽습니다. - 슬라이드쇼 시작부터 VB..