관련: 지식인 1. 랜덤 슬라이드로 이동하게 하려면 VBA를 이용하는 것이 효과적입니다. ​ 1-1. 아래와 같이 구역별로 문제나 제시어를 넣어둡니다. 1-2. 첫번째 차례 슬라이드에 구역 이름이 적힌 도형을 배치하여 선택하게 합니다. 구역도형내의 텍스트와 '구역이름'이 정확히 일치해야 합니다. 첫번째 도형 텍스트가 '동물'이라면 구역 중의 하나의 이름이 '동물'이어야 합니다. 1-3. Alt-F11 창에 삽입 > 모듈을 하나 추가하고 아래 코드를 붙여넣고 창을 닫습니다. 더보기 Option Explicit Dim sPos() As Long Dim sCount As Integer Dim sOrder() As New Collection Dim sName() As String Sub onSlideShowPa..

관련: 지식인 상황이나 도형의 형태에 따라 다르겠지만 점과 점 사이의 평행을 맞추기가 쉽지 않은 경우 점편집보다는 기존 도형에서 임의의 사각형 도형을 도형병합(빼기)로 빼는 방법을 추천합니다. ​ ​ 다른 방법으로는 VBA를 이용해서 정확한 수치로 좌표를 이전 노드 혹은 다음 노드의 좌표와 일치시킬 수 있습니다. ​ 아래와 같은 사각형(Freeform)이 있을 때 노드는 총 5개로 구성됩니다. 시작 노드와 마지막 노드는 같아야 닫힌 도형이 됩니다. 노드의 x,y 좌표는 슬라이드 크기 px값으로 나타냅니다. 아래의 경우 720 * 405입니다. printXY매크로를 실행해서 각 노드의 구성을 살펴볼 수 있습니다. (참고: 이 경우는 직선 도형인 경우로 꼭지점 개수 +1 개의 노드가 존재하지만 만약 곡선이 ..

관련: 지식인 일단, 현재 파워포인트는 매크로 녹화를 지원하지 않습니다. 2003버전에 있었지만 그 기능이 매우 미약했고 그 이후로는 지원하지 않습니다. ​ 다만 엑셀에서 매크로를 녹화해서 녹화한 코드를 참고해서 파워포인트에 응용할 수 있습니다. 하지만 이 경우에는 도형에 클립보드 이미지를 넣는 것을 녹화해도 질감으로만 붙여넣어집니다. ​ 파워포인트만의 VBA를 이용해야겠습니다. ​ 그런데 파워포인트 VBA에서는 클립보드 이미지를 곧바로 도형에 채워넣는 기능을 지원하지 않습니다. ​ 1. 클립보드 이미지를 슬라이드에 붙여넣고 현재 도형위에 겹치는 방법을 써야 합니다. ​ 2. 아니면 붙여넣은 이미지를 저장한 다음에 shape.Fill.UserPicture 를 이용해서 이미지 파일을 도형에 채워넣을 수는 ..

관련: 지식인 엑셀 파워포인트 연동 작업은 서로 상호작용하는 부분을 염두에 두어야 하고 일괄 처리 후 결과 확인 및 코드 수정하는 과정이 있어서 시간이 좀 걸리는 작업입니다. 하지만 누군가 한 번 만들어 두면 다음에 사용하거나 다른 사람이 일처리할 때 빠르고 편리하게 이용할 수 있습니다. ​ 엑셀 연동하는 기존 코드를 수정해서 작업했지만 그래도 시간이 걸렸습니다. ​ 1. 일단 첨부한 봉투1_목록.xlsx 파일처럼 보내는 사람과 받는 사람의 목록을 작성하고 저장합니다. 주의) 엑셀 제목행의 컬럼 이름과 슬라이드의 도형이름이 정확히 일치해야 합니다. F열 다음에 다른 컬럼을 추가해서 추가 문구를 표시할 수도 있습니다. 또한 이번 경우는 같은 행으로 처리할 텍스트 도형이름(주소, 우편번호)은 뒤에 언더바(_..

아래와 같이 단어,뜻,예문,예문해석으로 구성된 엑셀양식으로부터 위처럼 단어풀이 슬라이드를 일괄 생성해주는 VBA매크로 프로그램입니다. Eng 열이 영어단어 Kor 열이 한글 해석, Sentence 가 예문입니다. 파워포인트 맨 마지막 기준 슬라이드에 위의 이름과 같은 도형이 있어야 합니다. 기준 슬라이드에는 각 도형의 애니메이션이 적용되어 있으면 이 효과는 복사됩니다. 먼저 맨 마지막 기준 슬라이드의 Eng, Kor, Sentence 도형의 폰트나 색상, 글자크기, 애니메이션 등을 설정합니다. Alt-F8을 누르고 아래 매크로를 실행합니다. 1. GeneratePPT는 엑셀 파일로 부터 각 슬라이드를 만들어줍니다. 2. InsertTTS는 구글 TTS발음을 다운로드받아 삽입해줍니다. TTSMP3=True..

관련: 지식인 일단 아래와 같은 엑셀 목록이 있습니다. 위 데이터를 가지고 아래와 같은 PPT 슬라이드 형태를 대량으로 생성하는 것입니다. Excel2PPT를 실행하고 대상 엑셀 파일을 파일선택창에서 선택하면 일괄로 처리를 시작합니다. Eng 텍스트 상자와 Kor 텍스트 상자에 엑셀 데이터 내용을 넣어줍니다. 미리 Eng텍스트 상자와 Kor 텍스트 상자에 애니메이션을 적용해 놓으세요. 그리고 Google 번역 사이트에서 영어문장 발음을 다운 받아 슬라이드에 삽입해줍니다. 이 과정 때문에 시간이 더 걸리므로 빠른 속도를 위해서는 소스 맨 위의 getGoogleMp3 = false 로 해 놓으면 됩니다. 발음파일을 받는 것은 시스템이나 서버 사정으로 인해 때때로 누락이 될 수 있습니다. 다운로드 실패하면 재..

관련: 지식인 지도의 면적을 구하기 위해 구분구적법을 사용할 수 있는데 파워포인트에서 지도 도형 내부를 정사각형으로 자동으로 채우는 방법입니다. 1. 일반적인 방법으로는 네모 도형으로 슬라이드를 채우고 나서 수작업으로 바깥쪽을 지워주어야겠습니다. ​ 아래 영상을 참고하세요. ​ https://youtu.be/-EDF7nIvugQ?t=120 2. VBA를 이용하는 능력이 된다면 지도 도형과 네모도형을 충돌체크 등을 이용해서 찾아내도록 해볼 수 있겠습니다. ​ 하지만 연구가 좀 필요하고 VBA로는 속도가 잘 안나옵니다. ​ 시간을 내어 위와 같이 테스트해보았습니다. ​ Map 1이라는 지도 도형을 만들고 그 위에 FillBox 매크로를 이용해 슬라이드에 사각형들을 가득 채워넣고 (채우고 나서 그룹으로 묶고 ..

pptm 파일에 있는 매크로를 빠른 실행에 추가한 후 해당 pptm 파일을 닫아버리면 매크로를 찾을 수 없다는 에러메시지가 뜹니다. ​ 예~전에는 pptm 파일이 열려있지 않아도 실행이 되었지만 지금은 pptm 파일이 반드시 열려 있어야 실행할 수 있습니다. ​ 파일이 열려 있지 않아도 아무 때나 매크로를 실행하려면 각각의 매크로를 리본 메뉴가 있는 추가기능으로 만드는 것이 정석입니다. https://bettersolutions.com/vba/ribbon/custom-ui-editor.htm 그런데 각각의 매크로를 추가기능으로 만드는 것은 번거로운 일입니다. 그래서 미리 지정된 매크로파일들을 한꺼번에 자동으로 불러오는 추가기능을 만들어 보았습니다. ​ 파워포인트 시작할 때 목록에 있는 특정 pptm 파일..