파워포인트 슬라이드 노트를 TTS 나레이션으로 자동으로 삽입하는 매크로[Note to TTS] An automation tool that converts every text note on each slide to an auto-playing sound effect. 노트 메모를 TTS음성으로 변환하여 삽입해줍니다. Alt-F8로 매크로를 실행하면 각 슬라이드의 노트에 적힌 내용을 TTS사운드로 변환하여 자동으로 재생되도록 각 슬라이드에 삽입합니다. Alt-F8 will Convert All Text Notes to auto-playing TTS Sound Effects for you so that they will play automatically on entering each slide . 본 매크로는..

간단한 ppt 점수판입니다. This is a simple score board in PPT. 현재 팀은 2팀, 4팀, 6팀까지 지원합니다. 2팀 화면입니다. 숫자 위에 파란버튼은 숫자를 올리고 빨간 버튼은 숫자를 내립니다. ppt 기본 소리와 함께 숫자를 올리고 내립니다. 넓은 배경을 눌러도 숫자가 올라갑니다. 소리는 다른 소리로 했습니다. 초기화는 reset 버튼을 누르면 됩니다. 4팀화면입니다. 처음에 이 화면을 기준으로 만들었습니다. 최대 6팀까지 점수를 지원합니다. 8팀이나 그 이상도 만들기는 어렵지 않습니다. 매크로는 최소화해서 아래처럼 간단한 편입니다. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 ..

지식인 링크: https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102&docId=316777745&page=1#answer1 RSS XML데이터를 읽는 방법은 여러가지입니다. VBA 없이 손쉽게 읽어 오는 방법은먼저 개발도구의 '원본'을 눌러서RSS 주소를 넣어주고RSS 트리가 불러와 지면item 폴더를 끌어서 셀에 갖다 놓고우클릭해서 '갱신'을 선택해주면RSS 내용을 필터형식으로 조회할 수 있습니다. 그 과정을 VBA를 이용한다면 Workbook.XmlImport를 이용해서 아래와 같습니다. 12345678910111213141516171819202122232425Sub Xml_Import() Dim str As String On Error Resume Next..

This VBA convert slides to 3-Slides Handout. 관련 링크: https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102&docId=315605202#answer1 위 링크에 답변대로 3슬라이드를 오른쪽에 줄이 아니라 빈 여백을 두고 싶을 때 짝수 페이지마다 빈페이지를 삽입하고 6슬라이드씩 프린트하는 방법을 소개하였습니다. 그런데 질문자는 유인물 로 출력할 때 3슬라이드씩 프린트하려면 우측에 줄이 나오고 슬라이드가 작게 나오는데 좀더 슬라이드만 꽉 채워서 프린트하고 싶은 경우입니다. Alt-F8 로 매크로를 실행하면 아래처럼 16:9 세로로 된 3슬라이드가 한꺼번에 출력된 PPT가 생성됩니다. 구체적인 과정은 각 슬라이드를 PNG로 저장..

VBA를 이용한 Powerpoint 타이머입니다. 게임할 때, 시험볼 때나 제한 시간을 줄 때 유용합니다. 지정된 시간에서 카운트 다운하다가 00:00:00에 멈춥니다. 제일 상단에는 현재 시간이 표시되고 맨아래의 눈금은 진행 상태바라고 볼 수 있습니다. 노란색으로 점점 채워집니다. 우측 상단 톱니바퀴 아이콘을 누르면 제한시간을 지정할 수 있습니다. 최대 23:59:59 까지 지정할 수 있습니다. hh:mm:ss 형식이 맞지 않으면 동작하지 않습니다. 카운트 도중 타이머숫자나 왼쪽 상단 아이콘을 누르면 일시정지/재시작합니다. TV나 빔프로젝터 환경에 따라 16:9와 4:3 버전으로 나눴습니다. 16:9화면 버전 4:3화면 버전 ***** 00:00:00가 되면 다시 카운트를 증가시키는 버전 16:9화면 ..

관련 지식인 질문:https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102&docId=313829165&page=1#answer1 작동설명:매크로 허용하고 파일을 열고우측상단 새로고침 아이콘을 누르면 네이버 증권에 접속하여 (PC버전보다 모바일사이트에 접속)Json 데이터를 수집하고이를 VBAJSON을 이용하여파싱하여엑셀 시트에 입력해준다. 코드는 해당종목으로 하이퍼링크가 추가되고전일비와 등락률에는 조건부 서식이 적용되고또한 아이콘 서식이 적용된다. PC버전 네이버 증권사이트에 접속하여HTML데이터를 HTML Object Library와 GetElementsByTagId 를 이용하여 파싱할 수도 있겠으나각 페이지별로 20여페이지를 로딩/파싱해야해서 불편하여이번에는 ..

파워포인트나 엑셀에서 개발도구의 Active-X 텍스트박스나 개체를 삽입할 때 &H8004005 지정되지 않은 오류, (-2147467259) 시스템 오류 개체를 삽입하는데 실패했습니다. Active-X object insert failed 와 같은 오류 발생시 대처방법: - 오류 원인 파악 1) 오피스 보안업그레이드 후에 Extender 가 오류가 발생하는 경우는 MSForms.Exd 를 찾아 지워주면 새로 생성되어 오류가 해결됩니다. MSforms.Exd임시폴더:%appdata%\microsoft\forms%temp%\excel8.0%temp%\word8.0%temp%\PPT11.0%temp%\vbe예를 들면, C:\Users\User\AppData\Local\Temp 의 PPT11.0 이나 Exce..

랜덤으로 추첨할 때 쓰임새가 많을 것 같아 글을 올립니다. 위 캡쳐처럼 횐전판을 돌려서 추첨하는 회전룰렛을 만드는 방법입니다. 첨부파일을 다운받아 매크로를 허용하고 엽니다. Download the following pptm file. Be sure to enable macro contents when you open it 이미 있는 슬라이드는 참고용으로 테스트해보시기 바랍니다. 만드는 과정입니다. 1. 일단 빈 슬라이드를 하나 만듭니다. 2. Alt-F8을 누르고 AddBlockArc를 선택해서 부채꼴을 자동으로 생성합니다. 만들고 싶은 부채꼴모양의 개수를 입력합니다. 개수는 현재 2개에서 360개까지로 제한했습니다. 물론 시간이 걸리지만 3600개를 만들 수도 있습니다. 더보기 1 2 3 4 5 6 7..