1. 일단 슬라이드쇼를 두 개 실행하려면 각각의 슬라이드쇼 설정에서 '웹형식으로 진행'으로 설정합니다. ​ 2. 한쪽 ppt에 VBA코드를 추가합니다. Alt-F11 창에서 삽입메뉴에서 모듈을 추가하고 아래 코드를 붙여 넣습니다. Option Explicit '슬라이드쇼 페이지가 바뀔 때마다 호출되는 파워포인트 함수 Sub OnSlideShowPageChange(SSW As SlideShowWindow) Dim SW As SlideShowWindow Dim pos As Long '현재 쇼의 위치 pos = SSW.View.CurrentShowPosition '모든 쇼 순환 For Each SW In SlideShowWindows '만약 현재 쇼가 아니면 If Not SW Is SSW Then _ SW.V..

파워포인트 차트를 EMF로 저장했다가 다시 삽입 후 우클릭하고 오피스 도형으로 변환해도 축이나 제목 등의 글자가 있는 부분은 여전히 변경 가능한 텍스트박스상태로 남아있습니다. 나중에 편집이 가능한 점은 있지만 폰트가 없으면 다른 폰트로 보이게 되고 확대 축소 등의 사이즈를 변경할 때 폰트 크기가 변경이 안되어 불편하기도 합니다. 텍스트 박스를 순수한 자유형도형으로 변환할 수 있습니다. 텍스트박스나 글자가 있는 도형은 2013이후 도입된 기능인 도형병합(빼기)를 이용하면 점편집이 가능한 순수한 자유형도형으로 변환됩니다. 도형병합으로 처리하는 방법은 바로 해당 텍스트 도형에서 아무 빈 도형을 빼주면 됩니다. 이 방법을 이용해서 차트 > EMF 로 저장하여 도형으로 변환해서 그룹을 해제하고 내부 텍스트 도형들..

첨부한 VBA는 슬라이드에서 '궁서체'폰트로 작성한 개체(도형)를 찾아줍니다. 특히 슬라이드 마스터까지 검색합니다. 그룹으로 묶인 경우도 검색합니다. 표의 경우도 검색합니다. 만약 찾았다면 찾은 부분을 선택해줍니다. 그리고 기본폰트(.Name), 아시아폰트(.NameFarEast), 스크립트폰트(.NameComplexScript), 기타(,.NameOther) 등 어떤 폰트로 사용되었는지, 언어코드는 무엇인지 메시지 박스를 띄워줍니다. '확인'을 누르면 계속 다음 개체를 찾습니다. '취소'를 누르면 찾기를 중단합니다. 다른 폰트를 검색하려면 FontName을 수정하고 매크로를 실행합니다. 더보기 Option Explicit Const FontName = "궁서체" Sub FontFind() Dim pre..

"How to rotate the data labels on a pie or doughnut chart to make them face the center of the cirle" 원형이나 도너츠형 차트의 데이터 라벨은 기본적으로 가로방향입니다. 이 가로 방향을 VBA를 이용해서 원의 중심을 향하도록 자동으로 회전시키는 방법입니다. 아래와 같이 데이터라벨의 Orientation을 원의 중심을 향해 회전시키는 것이 목적입니다. 텍스트가 원의 중심을 바라보게 만들면 데이터 라벨이 어느 차트 항목이나 계열에 속하는지 구별이 잘 되는 장점이 있습니다. 보는 사람의 시선이 차트의 중심에서 바깥으로 퍼져나가도록 만들기도 합니다. 문제는 여기서 데이터라벨의 회전 각도를 계산하는 것이 핵심입니다. 아래 그림에서 데이터..

한글 파워포인트에서 일본어를 입력했을 때 다른 일본어 폰트로 변경이 안되는 사례가 발견되었습니다. 일단 내부적인 원인 파악을 위해서 현재 선택된 텍스트에 적용된 여러가지 폰트와 LanguageID를 알아보려면 아래와 같은 코드를 이용할 수 있습니다. Sub test() Dim shp As Shape Dim tr As TextRange Set shp = ActiveWindow.Selection.ShapeRange(1) 'Set tr = shp.TextFrame.TextRange.Characters(2) Set tr = ActiveWindow.Selection.TextRange.Characters(1) Debug.Print "Text: ["; tr.Text; "]" Debug.Print "Name: "; t..

일단 아래한글워드에서 만들기 1.편집 용지(F7) 머리말/꼬리말, 위/아래, 좌/우 여백 0으로 ​ 2. 표만들기 ​ 3. 만들어진 표의 첫번째 셀에 들어가서 F5키를 두 번 누르고 End 키 그리고 PgDn 키로 모든 셀 선택 후 글자크기를 6pt이하로 설정 ​ 4. 모든 셀이 선택된 상태에서 표/셀 속성으로 들어감. ​ 4-1. 표 속성에 표 바깥 여백 0으로 4-2. 표 속성의 모든 셀의 안 여백을 0으로 ​ 4-3 마지막으로 셀 속성에서 셀크기 다시 적용, 안 여백 0으로 설정 4-4. 설정 완료. 끝에서 백스페이스 한 번 눌러서 1페이지로 완성 ​ 첨부파일로 첨부합니다. * * * * * * * * * * * * * * * * ​ 파워포인트에서는 표로 만들 수 있겠지만 표는 처리속도가 매우 느립..

도형채우기에 가보면 '테마 색'과 '표준 색'이 있습니다. 기본적으로 '테마색'에서 색상을 고르면 테마에 지정된 색깔을 사용하게 됩니다. 테마색은 눈에 보이는 그대로의 색깔이 아니라 일종의 순서값(주소)으로 배경과 텍스트, 강조색 종류별로 미리 색상이 지정되어 있습니다. 즉, 어떤 색을 선택하면 보이는 색깔이 아니라 예를 들어 배경1색상의 5번째색, 강조3색상의 3번째 색, 텍스트1색상의 6번째 색 등으로 정의되어 있는 것입니다. ​ 디자인> 테마색에 보면 10가지와 하이퍼링크와 관련된 색상2가지를 포함하여 총 12종류로 현재 파일에 사용중인 테마색이 정의 되어 있습니다. ​ 흔히 사용되는 기본 파란색은 'Office' 테마색에 '강조1'의 대표색상으로 정의되어 있는 색상입니다. 아래 영상에서 보면 이 ..

위와 같은 휴대폰의 타이머 애니메이션을 파워포인트에서 만들려고 하면 사라지기 나 강조효과에서 마땅한 애니메이션이 없습니다. 그래서 돌아가는 원을 조각내어서 1초마다 각 조각이 사라지게 해보았습니다. BlockArc 를 그리고 조절점을 360/60 간격으로 조절해야합니다. 그리고 60부터 숫자를 표시하고 1초후 사라지게 해야 합니다. ​ 단순 반복이고 정밀한 각도 조절이 필요하므로 이 과정을 VBA로 자동화시켜보았습니다. ​ ​첨부파일1의 슬라이드 1: BlockArc를 이용한 애니메이션 (Auto1 매크로) 첨부파일 1의 슬라이드2: 작은 원을 그려서 애니에미션 효과 적용(Auto2매크로) ​ 원의 테두리 선이나 작은 원이 나타났다가 사라지도록 했습니다.​ 실행 영상 첨부파일 2의 5,6 슬라이드에서는 ..