참고 : 지식인 파워포인트 기본 기능으로는 특정 슬라이드에 이르렀을 때 오디오가 페이드아웃되게 만들 수 없습니다. ​ VBA를 이용하면 가능하게 만들 수는 있습니다. ​ MCISendString 이라는 명령을 이용해서 mp3등의 파일을 재생을 하다가 특정 슬라이드에서 볼륨을 3초간 계속 점점 줄이는 명령을 보낸다면 fade out 효과를 낼 수 있습니다. 더보기 Option Explicit #If VBA7 Then Public Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr, _ ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As L..

사진 여러장이 넘어가게 할 때 두 가지 방법이 있습니다. ​ 1. 한 슬라이드안에 여러 사진을 넣어두고 차례로 애니메이션으로 나타나게 하는 것과 ​ 2. 각 슬라이드마다 사진을 넣어서 슬라이드가 자동 전환이 되게 하는 방법 입니다. 2번 방법은 삽입 > 사진앨범 기능을 이용하면 자동으로 여러장의 사진이 각 슬라이드에 자동으로 삽입이 됩니다. 그리고 전환에서 모핑 전환을 적용하면 좋습니다. ​ 그런데 사진을 띄울 때 랜덤으로 순서가 섞이게 하려면 어느 방법이든 VBA를 이용해야 합니다. ​ 2번 방법에서 슬라이드 순서를 섞는 것은 기존 답변( 슬라이드 섞기 , 랜덤슬라이드쇼 ) 을 참고해주세요. ​ 1번 방법은 손이 더 가는 방법이지만 2번방식인 전체 슬라이드 전환과 달리 기존 화면에서 새로운 사진만 나타..

PPT를 합치는 방법은 다양한 방법이 있습니다. https://kin.naver.com/qna/detail.naver?d1id=1&dirId=102020103&docId=430910486&sc%20https://kin.naver.com/qna/detail.naver?d1id=1&dirId=102020103&docId=430910486&scrollTo=answer1 VBA로 파일이나 폴더를 선택해서 새로운 프리젠테이션 파일에 합쳐주는 방법입니다. 좀 더 단순한 방법은, ( 매크로가 들어있는 첨부한 pptm파일을 만들어 놓고 필요할 때 이 파일을 열고 Alt-F8을 누른 다음 매크로 둘 중 하나를 선택하는 것입니다. ) 매크로가 들어있는 첨부한 pptm 파일을 (차단해제 후) 열면 매크로 선택창이 자동으로 ..

관련: 지식인 특정 단어에 대해 메모를 일괄로 삽입하려면 VBA를 한 번 이용해보세요. ​ Alt-F11 누르고 삽입 > 모듈 추가 후에 아래 코드를 붙여 넣으세요. 아래 경우는 모든 슬라이드에서 '비디오'라는 문자를 찾아서 '비디오'라는 글자 우측 상단에 메모를 추가합니다. 더보기 Option Explicit Sub AddMemo() Dim sld As Slide Dim shp As Shape Dim tr As TextRange, cmt As Comment Dim pos As Long, Rmargin As Single, Tmargin As Single Dim strSearch$, Author$, Memo$, strUser$, tmp() As String '// 슬라이드에서 '비디오'라는 문자를 찾아서 ..

위 처럼 PC버전에서 발표자 도구 화면에서 다음 슬라이드가 단 한개밖에 보이지 않습니다. 다음 슬라이드가 2010이나 맥버전처럼 여러 개 나오기를 바라는 경우가 종종 있습니다. 2013이후 버전에서 다음 슬라이드를 여러개 보는 팁을 소개합니다. 1. Alt-F11 을 누르고 창이 뜨면 삽입 > 모듈을 추가한 뒤에 아래 코드를 붙여 넣고 코드창을 닫습니다. Sub onSlideShowPageChange(SSW As SlideShowWindow) p = SSW.View.Slide.SlideIndex Windows(2).View.GotoSlide p + 5 Windows(2).View.GotoSlide p End Sub 썸네일 창의 슬라이드를 이동시키는 코드입니다. 코드에서 먼저 5페이지 이후로 이동했다가 다..

여기저기 분산된 사진이나 도형개체를 일정한 간격으로 자동으로 배치해주는 방법입니다. VBA로 아래와 같이 개체를 원하는 가로개수 * 세로개수로 배열해줍니다. 실행 영상입니다. 사용된 코드: 더보기 '선택된 도형들을 일정하게 규칙적으로 배열합니다. Sub ArrangeShapePosition() Dim usr As String, D As Integer, sDefault As String Dim RowCol() As String Dim Cols As Integer, Rows As Integer Dim r As Integer, c As Integer, i As Integer Dim BoxW As Single, BoxH As Single Dim SW As Single, sh As Single Dim sld As..

관련: 지식인 1. 순수하게 도형기능을 이용한다면 큰 원 테두리에 원을 위와 아래에 2개를 추가하고 이 두 개의 원을 7~8번 복제해서 회전시키는 방법이 좋습니다. 아래 링크 첫번째 방법입니다. https://kin.naver.com/qna/detail.naver?d1id=1&dirId=102&docId=336100400&qb=7JuQIO2ajOyghA==&enc=utf8§ion=kin.qna&rank=2&search_sort=0&spq=0#answer2 원의 개수가 홀수라면 작은 원 뒤에 임시로 큰 원을 하나 그리고 작은 원과 큰 원을 그룹으로 묶은 다음 회전시키는 방법을 이용해야겠습니다. ​ ​ 2. VBA를 이용하여 자동으로 원을 원하는 개수만큼 그려줄 수 있습니다. 첨부파일의 Auto1 매크로입니..

관련: VML경로편집, 링크 VBA로 이동경로 특히 직선이나 간단한 도형 애니메이션을 추가하는 문법 3가지 1. 일단 아래로 내려가는 직선 애니메이션을 넣고 VML 경로를 수정하는 방법 Sub AddVML() Dim sld As Slide Dim shp As Shape Dim eft As Effect Dim ani As AnimationBehavior Set shp = ActiveWindow.Selection.ShapeRange(1) Set sld = shp.Parent Set eft = sld.TimeLine.MainSequence.AddEffect(shp, msoAnimEffectPathDown, , msoAnimTriggerAfterPrevious) eft.Timing.Duration = 0.25 ..