오피스365 구독버전에서는 클라우드 폰트를 사용합니다. 서버에 항상 폰트가 있기 때문에 해당 폰트를 사용하면 공유하더라도 폰트를 포함할 필요가 없는 장점이 있습니다. 그런데 해당 폰트가 사용되어야 혹은 구름모양 아이콘을 눌러서 다운로드해야 로컬에 하나씩 다운받아집니다. 필요할 때 혹은 사용될 때 다운로드 받아지므로 한꺼번에 다운받을 필요는 없으나 조금이라도 작업지연되는 것을 막고자 일괄 다운로드 하고 싶으나 해당 기능은 제공하지 않습니다. 이 때 VBA를 이용해서 일괄 다운로드 받는 방법입니다. (다운로드 받는다고 속도가 빨라지지는 않고 글꼴 목록이 더 많아져서 글꼴목록 로딩이 더 오래 걸리네요-.-;) 원래 아래 유투브에서 워드용 매크로를 공개하였습니다. https://www.youtube.com/em..

최근 365 구독버전 2104(빌드 139.6.20000 간편실행) 베타채널 이상에서는 개체 잠금 기능을 지원합니다. ​ Alt-F10 개체 선택 창에서 자물쇠 모양을 누르거나 마우스 우클릭 후 잠금을 선택합니다. 참고: https://m.blog.naver.com/radiobj5/222270903352 365하위버전이나 2019이하 버전에서는 아직 지원하지 않기 때문에 개체에 잠금효과를 주려면 개체(도형)를 슬라이드 마스터로 보내는 번거로운 방법을 써야만 합니다. 그래서 이 과정을 VBA로 자동화 시키고 빠른실행에 추가해서 Alt+숫자키로 빠르게 도형을 잠그고 풀 수 있도록 해보았습니다. ​ 개체 잠금/풀기 효과 구현 영상 VBA로 개체 잠그고 풀기 Lock 매크로는 현재 선택된 도형을 감추고 이 도형..

낱말퀴즈 혹은 CrossWord Puzzle 만들 때 편리한 도우미입니다. 낱말퀴즈 정답을 표로 만들고 나서 이 표를 복제해서 문제번호가 있는 표를 위에 만들어서 정답 표를 가리고 나서 위에 있는 문제 표를 선택한 상태에서 매크로(Auto~)를 실행하면 각 낱말 셀을 누르면 밑에 있던 정답 낱말이 보이는 낱말퀴즈를 생성해줍니다 Auto낱말퀴즈만들기 매크로를 실행하면 아래와 같은 메시지가 뜹니다. 실행 화면입니다. 다른 애니메이션 효과를 위한 매크로 함수 이용방법 영상입니다. 내부적으로는 테이블의 각 셀을 일반 도형으로 변환시키고 (Cell2Shape) 각 도형에 트리거를 일괄 적용하는(Trigger_add, Trigger_add1) 그리고 적용된 트리거를 일괄 변경(Trigger_Change)하는 하위 ..

정확한 각도를 그리고 싶을 때 위와 같이 각도표시를 자동으로 그려주는 매크로입니다. 첨부파일 다운로드 후에 매크로 허용해서 여세요. Alt-F8누르거나 개발도구 - 매크로로 DrawAngle 매크로를 실행하세요. 그러면 각도를 물어볼텐데 거기에 원하는 각도를 입력하세요. 그러면 자동으로 계산해서 그려줍니다. 각도를 나타내는 호는 원호를 그리고 조절값을 각도에 맞게 조절합니다. 직선도 Cos, Sin 을 이용해 계산해서 그려줍니다. ​ 아래 실행 영상 참고하세요. 더보기 Option Explicit Sub DrawAngle() Dim sld As Slide, shp As Shape Dim usr As String Dim ang As Single, Asize!, Lsize!, SW!, SH!, x!, y! ..

미리 베타버전을 사용해보고 싶다면 오피스 인사이더에 가입하면 됩니다. 여기서는 기업용버전인 경우 사용자가 레지스트리를 수정하여 가입 및 채널 변경을 활성화하는 방법을 안내합니다. 명령프롬프트를 관리자 권한으로 실행합니다. 참고 링크 그리고 아래 명령을 실행합니다. reg add HKCU\Software\Policies\Microsoft\office\16.0\common /v insiderslabbehavior /t REG_DWORD /d 1 그리고 오피스 프로그램을 실행하고 파일 - 계정으로 들어갑니다. 아래처럼 기업용(엔터프라이즈용) 365버전에서 현재채널 프리뷰 버전에서 '채널 변경'을 눌러 오피스 참가자에 가입/ 채널을 변경할 수 있습니다. 아래 그림처럼 가능한 채널로 변경합니다. 확인을 누르면 업..

관련 지식인 링크 표 안의 셀들도 Shape의 일종이지만 다른 도형들처럼 자유롭게 모든 기능을 지원하지는 않습니다. 서식복사 기능도 지원하지 않고 애니메이션도 따로 적용할 수 없습니다. ​ 하나의 방법으로 VBA를 이용해서 셀들의 내용을 복사해서 일반 도형으로 만드는 방법이 있겠습니다. 첨부파일을 다운받아 매크로를 허용해서 여세요. 그리고 사용자의 파일을 열고 원하는 셀들을 선택한 상태에서 개발도구-매크로를 누르거나 Alt-F8을 누르고 나서 매크로 선택창이 뜨면 먼저 아래의 매크로위치를 미리 열어둔 pptm파일로 선택하면 Cell2Shape 매크로를 실행할 수 있습니다. ​ 셀을 도형으로 비슷하게 복사는 하지만 완벽하게 동일하게는 복사가 안될 수 있습니다. 특히 제목셀 등의 속성이 복사되지 않을 수 있..

관련 질문: https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020103&docId=399795292&page=1#answer1 파워포인트의 모든 슬라이드에 사용된 글자의 통계를 내는 매크로입니다. 단순 텍스트상자, 표, 도형, 그룹도형 등 텍스트가 있는 개체에 대해 각 글자의 사용빈도를 디버그창(Ctrl-G) 에 출력해줍니다. 코드 더보기 더보기 Option Explicit Sub CountChars() Dim sld As Slide Dim shp As Shape '도구-참조에서 Microsoft Scripting Runtime 체크 필수 Dim d As Dictionary 'Dim d as Object 'Set d = CreateObject("Script..

파워포인트에서는 그림에 대해 수정메뉴에서 선명도(Sharpen/Blur), 밝기/대비(Brightness/Contrast) 효과를, 색메뉴에서 채도(Saturation), 색조, 다시칠하기(Recolor) 꾸밈효과메뉴에서 여러가지 꾸밈효과 365구독버전에서는 투명도까지 지원합니다. 슬라이드의 모든 그림에 대해 일일이 똑같은 그림효과를 적용하는 것이 어렵습니다. 서식복사도 작동하지 않습니다. 이런 경우 VBA로 특정 그림의 그림효과들을 복사해서 다른 모듬 그림에 그림효과를 일괄로 적용할 수 있습니다. 1슬라이드의 그림에 몇가지 효과를 적용한 뒤에 ApplyPictureEffects 를 실행하는 시연 영상입니다. 더보기 Sub applyPictureEffects() Dim shpFrom As Shape, s..