위 처럼 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 ..

VBA에서 Sub 와 Function은 서로 비슷해서 혼용해서 사용하기도 하지만 아래와 같은 차이점이 존재합니다. Sub (Routine): 중규모로 주로 공개적, 대외적으로 사용. 주로 리턴값 없음 Alt f8 누르면 목록에 나옴, Private Sub로 쓰면 안나옴 AdressOf 로 Timer API 등에서 호출가능 mySub x로 호출. mySub(x) 호출 불가. Call mySub(x) 가능(byVal) 여러가지 상/하위 Sub 나 Function을 호출 도형이나 버튼에 매크로 지정 가능 빠른실행에 추가 가능 ​ Function:​ 소규모로 주로 내부적으로 사용. 주로 리턴값 있을 때 많음. 없어도 무방. 이유 없는 소규모 단순 반복작업에 적합. Alt f8 눌렀을 때 함수목록에 나오지 않음...

관련: 지식인 엑셀에서 만든 차트를 복사해서 파워포인트 슬라이드에 연결로 붙여넣고 사용하다가 파워포인트에서 차트 데이터를 변경하면 원본을 변경저장할 지 확인하고 저장을 선택하면 잘 업데이트가 됩니다. 하지만 따로 엑셀로 원본 엑셀파일을 열어서 시트이름을 변경하고 저장한다면 파워포인트 파일에서는 이런 변경사실을 알지 못해서 다시 데이터를 편집하려고 하면 차트의 내용이 나오지 않게 됩니다. 이 때 원본 차트의 시트이름을 복구하는 코드입니다. 더보기 Option Explicit Sub reLinkChartData() Dim shp As Shape Dim srs As Series Dim srscol As SeriesCollection Dim Sheet1Name As String Dim sData As Strin..

하이퍼링크로 로컬 사진과 연결하려면 사진을 pptx파일이 있는 폴더에 함께 두고 하이퍼링크를 해당 파일로 링크하신 다음에 이동할 때 사진도 pptx파일과 함께 그대로 이동시켜야 합니다. ​ 1. 사진을 누락시키기 쉽기 때문에 이런 경우 사진을 삽입 메뉴에서 '개체'로 삽입하시면 사진 파일이 pptx파일 내부에 포함되어 절대 누락되지 않습니다. 강아지 아이콘을 더블 클릭하면 내부의 강아지.jpg파일이 기본 이미지 뷰어로 열립니다. ​ 2. 강아지 아이콘과 캡션을 바꾸고 싶다면 '아이콘으로 표시'를 체크하고 아이콘 변경을 누르고 나서 C:\Windows\System21\Shell32.DLL 같은 파일을 선택하고 원하는 아이콘으로 변경하고 또한 캡션내용도 수정하면 아래처럼 다른 아이콘과 캡션으로 변경할 수 있..

VBA 처리과정도 마우스로 슬라이드의 표(테이블)을 복사해서 엑셀 시트에 붙여넣는 것과 유사합니다. ​ 테이블.Copy 해서 시트의 셀.Paste 하거나 시트.PasteSpecial로 붙여넣습니다. ​ 테이블이 여러개 일텐데 아래와 같은 샘플을 만들었습니다. ​ VBA코드: 더보기 'Copy the table content on each slide to Excel sheet Option Explicit Const TextOnly As Boolean = False Sub CopyTableToSheet() Dim xl As Object 'New Excel.Application Dim wb As Object 'Excel.Workbook Dim sht As Object 'Excel.Worksheet Dim rn..