위 그림처럼 번호 도형을 누르면문제 슬라이드로 이동해서 문제를 풀고다시 돌아오면 눌렀던 번호가 사라지는 형태의 게임을폭탄처럼 사라진다는 점에서 'Bomb Game' 이라고 부릅니다. 여러차례 소개한 바 있습니다. 이 방식은 참여자가 숫자를 고른다는 점에서일반적인 랜덤 문제와 차이가 있습니다.본인이 직접 고민해서 문제를 랜덤으로 고르므로좀 더 참가자의 참여를 유도할 수 있는 점이 가장 장점입니다. 이런 방식의 슬라이드쇼를 만들려면 '트리거' 애니메이션을 이용해서하이퍼링크와 사라지기 트리거 애니메이션을 동시에 모든 번호 도형에 적용해줘야 합니다.손이 많이 가고 번거로운 단점이 있습니다. 그래서 VBA로 문제 숫자만 또는 가로*세로 숫자만 지정하면자동으로 Bomb Game을 생성해주도록 했습니다. 첨부파..

관련: 지식인 엑셀에서 그림을 삽입하면 기본으로 크기조절 옵션이 설정되는데그림을 여러개 삽입할 때 기본 속성을 원하는 대로 설정하고 싶은 경우입니다. 1. VBA를 이용할 수 있습니다.Alt+F11 창에서 삽입 > 모듈을 추가하고 아래 내용을 붙여넣습니다.코드창을 닫고 원하는 셀을 선택하고 Alt+F8누르고 InsertPicureFileHere 를 실행해서원하는 사진을 현재 셀위에 삽입하고 '크기조절 및 이동' 옵션으로 설정합니다.클립보드 사진을 삽입하려면 InsertClipboardPictureHere 를 실행합니다. 더보기Sub InsertPictureFileHere() Dim sht As Worksheet Dim rng As Range Dim shp As Shape Di..

VBA 로 곡선을 그릴 때1. BuildFreeform으로 시작 좌표를 초기화한 후2. AddNodes로 직선이나 곡선 좌표를 계속 추가하여 그립니다. AddNodes에 대한 MS도움말의 설명이 자세하지 않고 친절하지 않습니다.심지어 파워포인트 도움말은 맞는데 엑셀과 워드 도움말에는 아직도 마지막 인수인 X3,Y3가 조절점좌표라는 틀린 설명이 들어가 있습니다. 이에 좀 더 설명도 필요하고 눈에 보이는 예시가 절실히 요구됩니다. 먼저 이해하기위해 필요한 기본적인 용어입니다. 아래 그림을 기준으로 AddNodes 로 새로 추가되는 선 조각을 Segment (세그먼트) 라고 부르고 왼쪽에 첫번째 조절점(제어점)1과 오른쪽에 두번째 제어점(조절점)2가 필요합니다. 2차원 베지어 곡선의 형태입니다. 참고로 TTF..

현재 도형을 원하는 셀의 정확히 가운데로 위치시키거나셀에 가득차게 자동으로 조절해주는 기능을파워포인트 자체적으로 지원하지는 않습니다.​해당 셀이 표의 가운데라면 도형을 이동시킬 때 스마트 가이드기능이 켜져 있다면 셀의 중심을 점선으로 표시해줍니다.​표의 모든 셀의 경계선에 안내선(가이드선)을 추가하는 방법도 있겠습니다.https://konahn.tistory.com/entry/DrawGuidesAlongTableBorders 테이블(표) 윤곽선 따라 가이드 선 자동 추가관련: 지식인 엑셀은 셀이 작아서 Alt키를 누른 채로 마우스로 도형을 움직이면 자석처럼 맞춰줍니다. 하지만 파워포인트는 테이블(표)의 크기가 다양해서 그런지 표의 경계에 맞게 이동시켜주konahn.tistory.com 여기서는 VBA를..

1.빠른 실행 이용​ 페이지 레이아웃 > 용지방향에서 세로나 가로를 우클릭하고 빠른 실행에 추가하세요.그 다음 빠른실행에서 5번째이면 Alt+5 를 누르면 아래처럼 빠르게 접근 가능합니다.​​2. 다른 방법으로 오피스 단축키 시퀀스를 하나의 단축키에 설정할 수 있는 아래 오토핫키 프로그램을 이용할 수 있습니다. 몇번 소개했지만 복잡한 단축키 시퀀스를 한 번에 실행할 수 있게 만든 프로그램입니다. https://konahn.tistory.com/entry/OfficeAutoHotKey 오피스 단축키 만들기파워포인트, 엑셀 등에서 Alt키를 누르고 일련의 키를 눌러서 단축키를 쓸 수 있습니다. 예를 들어, 선택된 도형내 텍스트의 가로 정렬을 왼쪽으로 하려면 'Alt+H'를 누르고 그 다음 'A,L'을 누르는..

양면인쇄나 모아찍기를 위해서 일정한 위치마다 빈 슬라이드를 추가하고 싶을 때 쓰는 코드입니다. 예를 들어 매 4페이지 마다 빈 슬라이드 2개씩 삽입해야 하는 경우 슬라이드가 몇백장이라면 수작업 하는 것이 번거롭습니다. 이때 아래 코드로 빈 슬라이드를 삽입해줍니다. 특히 양면 인쇄를 하는 경우 다음 슬라이드와 구분이 필요할 때 빈 슬라이드가 꼭 필요 합니다. 2장씩 모아찍기를 한다면 빈 슬라이드를 2개 이상 넣어야할 수도 있습니다.  아래 코드는 일정 페이지마다 빈 페이지를 여러장 넣을 수 있습니다. stp 는 몇페이지마다 삽입할지이고cnt 는 빈 페이지를 몇개씩 삽입할지입니다. 파워포인트에서 Alt+F11 창을 켜고삽입 > 모듈을 하나 추가한 다음 아래 코드를 붙여넣고녹색 플레이 버튼이나 F5로 실행합니..

오디오 재생바를 순수 애니메이션으로 구현하고자 합니다.특히 재생바의 현재 위치 표시가 계속 오른쪽으로 이동하고진행시간을 실시간으로 업데이트해야 합니다. 그런데 지난 번 처럼 VBA Timer를 이용해서 표시하지 않고모두 애니메이션으로 구현합니다.그래야 동영상으로 내보내기가 가능합니다. 일반 애니메이션은 1분이라는 시간제한이 있으므로 일반 순차적인 애니메이션보다는오디오 책갈피(북마크) 트리거를 이용하는 것이 좋습니다.(오디오 책갈피 애니메이션은 VBA매크로가 아니라 순수 애니메이션효과이기 때문에 동영상으로 내보내기해도 그대로 작동합니다.)  오디오를 삽입하고 자동재생하게 한 다음1초마다 오디오에 책갈피를 삽입해서 해당 시간대에 도달하면재생바나 타이머 애니메이션이 호출되게 하는 것입니다.​오디오 트리거는 최..

관련: 지식인1, 지식인2  이번 미션은  엑셀에서 시트이름이 '양면3'이면 양면 3부 인쇄, '단면1'이면 단면 1부로 모든 엑셀 시트를 한꺼번에 일괄 인쇄하는 것입니다.  VBA로 원하는 인쇄 매수대로 인쇄하는 것은 쉬우나양면 인쇄는 VBA로도 설정하기 까다롭습니다.​한 가지 방법은 프린터를 하나 더 추가한 다음 양면으로 설정하고단면일 때는 프린터1을 현재 프린터(ActivePrinter)로 설정하고양면일 때는 프린터2를 현재 프린터(ActivePrinter)로 설정하는 방법이 있습니다. 여기서는 이 방법대신 새로운 프린터를 설정할 필요 없이 API를 이용해서 그때마다 양면/단면을 설정해서 인쇄하는 방법을 모색합니다. 아래와 같은 코드를 참고하였습니다. VBA7 환경(오피스2010이상)https://..