1. 일단 윈도우의 기본 프린터를 가상 PDF프린터로 설정하고 모든 PPT를 인쇄 프린터로 보내는 방법을 시도해볼 수 있겠습니다. 그런데 저장할 pdf 파일명을 계속 물어보게되어서 불편하겠습니다. ​ ​ 2. VBA 매크로를 이용할 수 있습니다. (지난번 ppt를 비디오로 내보내기하는 소스를 재활용했습니다.) 2-1. pptm 첨부파일을 다운 받아서 파일을 우클릭> 파일속성에서 차단해제 체크 > 확인 후에 매크로 허용해서 엽니다. 2-2. Alt-F8을 누르고 매크로 위치는 첨부한 pptm을 선택하고 Export2PDF를 실행합니다. 2-3. ppt파일들이 모여 있는 폴더를 선택합니다. 2-4. 변환 결과 확인 : Ctrl+G 디버그창 >> Source Folder: C:\Users\사용자\Desktop..

VBA에서 현재 프레젠테이션을 동영상으로 저장하는 코드는 ​ 프레젠테이션.CreateVideo "파일명", 타이밍여부, 기본재생시간, 세로픽셀수, 프레임속도, 압축률 을 이용합니다. ​ 예를 들어, 아래 명령은 현재 프레젠테이션을 1080p로 30 프레임, 압축률 90%로 저장합니다. Sub Export2Video() ActivePresentation.CreateVideo "c:\temp\myVideo.mp4", True, 5, 1080, 30, 90 End Sub 이제 여기서 나아가서 폴더를 선택하면 폴더 내의 모든 ppt, pps나 pptx, pptm, ppsx 등의 파일을 열어서 동영상으로 저장하고 닫는 코드입니다. Option Explicit 'Const TargetFolder = "C:\Temp..

원래 슬라이드쇼 설정은 각 파일마다 저장됩니다. 따라서 슬라이드 쇼를 시작하면 해당 파일의 설정대로 슬라이드쇼가 시작됩니다. 특히 설정된 시간 사용에 체크된 경우 자동으로 슬라이드가 넘어가버립니다. 모든 슬라이드쇼가 '수동'으로 전환되도록 설정하고 싶은 경우가 있습니다. '발표자가 진행' 옵션도 설정하려고 합니다. ​ VBA로 쇼를 시작하게 하면 정해진 설정대로 쇼를 시작할 수 있습니다. (실행하려면 Alt-F11 창에서 삽입 > 모듈 추가하고 아래 코드를 넣고 F5로 실행합니다. ) 그러면 쇼를 시작하되 '발표자가 진행'으로 수동 전환으로 실행합니다. Sub mySlideShow() With ActivePresentation.SlideShowSettings .ShowType = ppShowTypeSpe..

관련 : 지식인 질문 https://www.instagram.com/p/Cf_XuyWFBc9/ 위 링크의 영상처럼 장바구니 목록을 구성해서 신용카드로 결제하는 화면을 구성하고 싶다는 질문입니다. VBA와 ListBox 를 이용해서 만들어 보았습니다. ​ 그림을 클릭해서 아이템을 추가하고 개수를 늘립니다. +와 -를 눌러서 숫자를 수정합니다. 물건 가격은 그림 도형의 이름 "item_축구공_10000"에서 가져옵니다. 0개가 되면 목록에서 삭제합니다. 물건의 최대 개수는 10개로 제한했습니다. 바꾸려면 maxITem 값을 수정하면 됩니다. 결제화면 버튼을 누르면 총액수를 보여주고 결제하기를 누릅니다. 애니메이션이 뜨고 결제가 완료됩니다. ​ 아래 실행 영상을 확인하세요. 윈도우에서만 작동하기 때문에 터치가..

삽입 > 사진앨범을 이용하면 각 슬라이드에 사진을 한 장씩 넣을 수 있습니다. 이렇게 삽입된 여러장의 사진이 아래처럼 오른쪽에서 왼쪽으로 자동으로 슬라이드되는 슬라이드 앨범을 만드는 방법입니다. 사진을 이동애니메이션을 적용해서 오른쪽에서 왼쪽으로 움직이게 할 수도 있지만 모핑 전환을 이용할 수도 있습니다. 현재 사진을 이전 슬라이드 오른쪽에 넣어주고 또한 다음 슬라이드의 왼쪽에도 넣어준 다음 모핑 전환을 시키면 사진들이 오른쪽에서 왼쪽으로 계속 슬라이딩으로 넘어가게 됩니다. 아래와 같은 코드가 사용되었습니다. 더보기 Option Explicit Sub AddMorphingTransition() Dim pres As Presentation Dim sld As Slide Dim shp As Shape Dim..

프랙탈이란 특정 도형패턴 무한 반복되는 구조를 말합니다. 프랙탈이 중요하고 유용한 이유는 특히 자기자신을 호출하는 재귀(recursive)구조때문입니다. 재귀구조는 거의 무한히 반복할 수 있어서 오늘날의 인공지능 계산에 있어서도 그 근간이자 뿌리가 되는 중요한 프로그래밍 기술입니다. 또한 뫼비우스의 띠, 무한증식, 블랙홀 그리고 LK99 초전도체 심지어 생명체의 영생 등과도 개념적으로 연결되는 원리입니다. 가장 최초이자 유명한 프랙탈 도형 중의 하나가 Sierpinsky 삼각형입니다. 삼각형의 각 선분을 2등분하는 점을 연결하여 뒤집어진 이등변삼각형을 삼각형 안에 만들고 다시 만들어지 각 삼각형들안에 역삼각형을 계속 무한히 만들어 갑니다. 갈수록 삼각형이 줄어들어서 눈에 보이지 않을 정도로 무한히 만들기..

위와 같이 간단히 차트를 표시하고 싶을 때 문자코드를 이용할 수 있습니다. 일단 아래와 같은 유니코드 기호를 이용할 수 있습니다. ●◐◑◒◓◔◕◖◗ ◰ ◱ ◲ ◳ ◴ ◵ ◶◷ 경우에 따라서는 Win+'.'이모지를 이용할 수도 있습니다. 이모지는 사용하는 시스템에 따라 안보일 수도 있고 다르게 보일 수도 있습니다. 파워포인트에서 도형(부분 원형, ARC) 을 삽입하고 조절점을 돌리고 원 도형과 그룹지어 만들 수 있습니다. 하지만 부분 원형의 2개의 조절점을 정확하게 45도, 90도 등의 각도를 그리는 것이 어렵고 귀찮습니다. 그래서 VBA를 이용해서 자동으로 문차트 도형을 삽입하는 방법입니다. 더보기 Option Explicit Const SZ As Single = 40 '원의 크기 Const LineSZ..

위와 같은 자유형 도형 ABCD가 있을 때 C점과 D점을 대칭되도록 만들고 싶습니다. 물론 처음부터 사다리꼴 도형으로 그리면 하나의 조절점으로 두 점이 동시에 조절되므로 자동으로 대칭이 됩니다. 여기서는 그밖의 자유형 도형인 경우에 두 점을 대칭되도록 만드는 것에 집중하겠습니다. 대칭이 되도록 만드는 것은 네모 도형을 하나 더 추가하고 기존 사다리꼴과 도형병합(교차 혹은 조각)를 실행해서 공통된 부분만 남기고 이 도형을 복제해서 좌우를 반사시키고 좌우에 대칭되는 절반짜리 도형을 도형병합(통합)하는 방법이 있습니다. 단, C와 D가 평행인 경우에는 가능합니다. 하지만 Y값이 서로 다르다면 문제가 다릅니다. 아래처럼 작업하면 사다리꼴이 아닌 각이 5개인 도형이 남게 됩니다. 이렇게 원하지 않는 결과가 나오므..