인쇄화면에 유인물 방식으로 프린트할 때 3슬라이드를 선택하면 아래처럼 슬라이드 오른쪽에 빈줄을 삽입해줍니다. 고정적으로 7줄을 출력하고 사용자가 변형할 수 있는 여지를 주지 않습니다. 이에 자동으로 원하는 만크의 빈 줄을 2,4,6,8... 짝수 번째 슬라이드마다 추가하는 매크로입니다. 빈 줄을 삽입하고 또한 슬라이드에 직접 설명을 타자를 쳐서 입력할 수 있도록 텍스트 상자를 추가해줍니다. 슬라이드 높이와 빈 줄의 개수를 맞춰보고 자동으로 폰트의 크기나 문단 양식을 변경해줍니다. 또한 밑줄과 텍스트상자는 잘못 건드리기가 쉬우므로 슬라이드마스터에 밑줄과 텍스트상자를 생성하고 그 레이아웃을 일반 슬라이드에 적용하도록 했습니다. 더보기 Public Cnt As Integer '생성할 빈줄 개수 Const Ma..

VBA에서 IE(InternetExplorer), WinHttp, XmlHttp(ServerXmlHttp) 등을 이용해서 웹사이트 정보를 가져올 수 있는데 특히 접속 후 웹페이지와 상호작용 즉, input상자에 텍스트를 넣거나 선택하거나 값을 보내려면 반응이 느리고 불안정한 IE를 이용하는 수밖에 없습니다. 샘플로 IE개체를 이용해서 Yahoo에 접속한 다음 Parasite라는 검색어로 접속해서 나온 페이지에서 IMDB점수를 가져오는 VBA예시입니다. IE개체가 상대적으로 느린 편이고 변수가 많아 VBA로 IE개체를 제어하는 것이 녹록치 않습니다. (WinHttp나 XmlHttp를 이용할 경우 계속 상호작용이 불가능해서 한번에 Form 내부의 값들을 Post로 웹서버에 전달해줘야 합니다. 이 방법이 가능..

지난 번에 PPT 를 워드로 변환하는 매크로를 올렸는데 (https://konahn.tistory.com/entry/ConvertPPT) 이번에는 반대로 워드 DOC (혹은 한글 HWP)를 PPT 슬라이드로 변환하는 VBA 매크로입니다. 관련 지식인 질문: https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=1020202&docId=346624913&page=1#answer1 한글HWP 파일은 워드로 변환저장기능이 있기 때문에 여기서는 워드를 PPT로 저장하는 데 주안점을 둡니다. 워드 document의 각 페이지를 하나의 슬라이드로 붙여넣기 때문에 워드문서를 가로 페이지로 먼저 바꾸고 Ctrl-Enter로 페이지를 미리 나눠주는 게 좋습니다. 프리젠테이션으로 변환할..

VBA로 특정 테이블의 글꼴, 배경 등 몇몇 주요서식을 복사해서 원하는 테이블에 서식만 복사할 수 있도록 만들어 보았습니다. 첨부한 TableFormatCopy1.pptm을 열고 테스트해보세요. 그림처럼 리본메뉴가 생성되는데 Copy Table Format 버튼은 테이블의 서식을 복사합니다. Paste Table Format 은 복사된 서식을 선택된 테이블에 일괄 적용합니다. 현재 테이블의 전체적인 배경, 1행1열의 배경색, 투명도, 글자크기, 한영글꼴, 외곽선, 좌우상하정렬, 좌우여백 1행2열의 배경색, 투명도, 글자크기, 한영글꼴, 외곽선(상하좌우 테두리), 좌우상하정렬, 좌우여백 을 복사합니다. 리본메뉴에 기능을 추가한 실행 영상입니다. 추가기능으로 이용하려면 첨부한 pptm 을 ppam 형식으로 ..

https://www.wordreference.com/enko/ WordReference 영-한 사전 한-영 사전 WordReference 영-한 사전은 특별히 온라인 세상에 맞도록 적용된 사전입니다. 본 사전의 특징은: 간단하며 읽기 쉬운 포맷으로 되어 있습니다. 질문이 있는 경우 종합토론장에 올리실수 있습니다. 지속적으로 진전이 이루어지고 있습니다. 저작권 © WordReference.com LLC 2019 대규모의 사전 엔트리 복사는 법적으로 금지되어 있습니다. Sitemap www.wordreference.com 현재 워크시트의 단어(들)에 대해 위 사이트에 접속해서 아래와 같이 영어단어의 뜻, 발음기호, 발음MP3, 예문, 동의어를 자동으로 가져옵니다. 원래 http://kimstar.kr/74..

지난 버전에 이어서 이번에는 첫슬라이드에 시계 도형을 만들 필요 없이 전부 VBA로 clock 시계도형을 추가하도록 수정해보았습니다. 사용자가 할 일은 아래의 VBA코드를 복사해서 사용자의 PPT 의 Alt-F11 VBE 코드창에 붙여넣는 것 뿐입니다. 구체적으로 말하자면 파워포인트 일반편집창에서 'Alt-F11'키 눌러서 VBE코드창 연 다음 [삽입 - 모듈] 메뉴에서 '모듈'을 하나 추가하고 아래에서 복사한 코드를 붙여넣고 F5 슬라이드쇼 테스트 한번 하면 됩니다. 혹시나 시계가 시작하지 않는다면 Alt-F8 누르고 'FirstRun' 함수를 딱 한번만 실행시켜주세요. (이건 혹시 SlideShowPageChange가 간혹 실행되지 않는 것을 막기 위해 1슬라이드에 Label 컨트롤을 하나 추가해줍니..

모든 슬라이드에 '실시간 시계'를 추가하는 VBA예제입니다. 사용제한이 없고 사용자가 시계 폰트, 도형모양, 위치 등을 마음대로 조절할 수 있습니다. 지식인링크: https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102&docId=342538585&clubid=16854404&menuid=248&dirId=102020103 첨부한 pptm파일 매크로허용해서 여시고 한번 테스트해보세요. 슬라이드쇼를 시작하면 슬라이드 페이지가 바뀔 때마다 Slide #1의 Clock 도형을 현재 슬라이드에 복사하고 Timer API를 이용해서 1초에 한번씩 시간을 갱신합니다. 슬라이드쇼를 종료하면 타이머를 종료하고 1슬라이드외의 모든 슬라이드의 Clock 도형을 삭제합니다. 1. 첨부..

자주쓰는 API 중 64비트 호환을 위한 API선언 모음입니다. #If VBA7 Then Public Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr, _ ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr Public Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr) As Long Public Declare PtrSafe Function sndPlaySoun..