통합 문서1.xlsx 파일에서 한 행씩 추출해서 파워포인트에 슬라이드를 추가하고 세로 막대 그래프를 생성하는 예제입니다. ​ 차트 생성은 엑셀에 의존하는 작업이라 약간의 시간이 소요됩니다. 또한 작업 중에 창을 건드리면 오류가 날 수 있습니다. ​ 내부적으로 슬라이드에 차트를 추가하고 데이터 입력 엑셀창에서 통합문서1.xlsx파일 엑셀 시트의 값들을 한 행씩 복사해서 SetSourceData로 차트에 반영될 데이터 영역을 지정해주고 있습니다. 더보기 Option Explicit 'AddChart2 'ChartData 엑셀에 데이터를 붙여넣는 방식 Sub AddCharts() Dim xlsApp As Object Dim xlsBook As Object, pptBook As Object Dim xlsSht ..

관련: 지식인 ✅ 기능 소개 위 도로명주소 검색사이트 https://juso.go.kr 의 주소 검색 서비스를 이용해서 주어진 엑셀 주소 목록에 대해 검색결과가 있는 경우 한글 도로명주소, 지번주소, 우편번호, 영문주소를 변환해줍니다. 검색어에 주소전체가 아니더라도 건물명이나 구, 도로명 등을 검색어로 입력하면 검색이 됩니다. ✅ 한글주소 ↔ 영어주소 변환: 검색결과가 있는 경우 한글주소와 영문주소를 출력하기 때문에 한글주소 ↔ 영어주소 변환에 이용할 수 있습니다. 우편번호를 검색하는데도 이용할 수 있습니다. 단,아파트 동-호수, 주택의 층, 지하 등의 정보는 직접 입력/변환하셔야 합니다. 더보기 ※ 상세주소(동,층,호)를 포함한 영문 우편주소 표기방법 안내 1. 유형1) “동”과 “호” 표기 주소가 “..

관련: 지식인 위와 같은 영어단어 목록을 영단어/우리말뜻으로 정리하고 싶다는 질문입니다. OCR인식과 엑셀VBA를 이용하여 정리하는 방법을 소개합니다. 여기에 사용된 엑셀 VBA는 간단히 모든 라인을 순환하다가 영어 단어를 만나면 그아래 셀을 뜻으로 간주해서 모든 단어를 정리하는 역할을 합니다. 이 코드는 모든 경우에 사용할 수 있는 것은 아니지만 필요한 경우에 VBA를 이용해서 이렇게 실생활에 이용할 수 있다는 것을 보여드립니다. 1. 구글 드라이브에 올린 다음 연결앱에서 구글 문서로 열면 ​ 2. 아래처럼 자동으로 글자 인식을 해줍니다. 3. 위 내용을 엑셀에 집어 넣고 정리합니다. ​ 4. 특히 아래처럼 단어 앞에 숫자가 있는 경우 정리가 안되므로 숫자를 지우거나 다른 곳으로 옮겨줍니다. ​ 5. ..

관련: 지식인 스핀버튼을 넣어서 누를 때마다 개수가 반영되어 계산되게 해보았습니다. ​ 아래와 같은 코드가 Slide1에 사용되었습니다. Function getCell(r As Integer, c As Integer) As TextRange Dim sld As Slide Dim shp As Shape Set sld = Slide1 Set shp = sld.Shapes("표 1") Set getCell = shp.Table.Cell(r, c).Shape.TextFrame.TextRange End Function Function doCalc() getCell(5, 2) = Format(Val(getCell(4, 2)) + Val(getCell(4, 3)) + Val(getCell(4, 4)), "###,##..

1. 유튜브 등에서 영상에 대한 자막을 다운로드합니다.(다운받은 자막은 개인적인 용도로만 사용할 것!) https://downsub.com/ 위 사이트에 유튜브 주소를 붙여넣고 언어를 선택해서 다운로드 받습니다. .SRT자막은 텍스트파일로 일반적으로 아래와 같은 형식입니다. 1 00:00:11,626 --> 00:00:15,470 불꺼진 romantic all my life 2 00:00:15,837 --> 00:00:19,376 내 주위는 온통 lovely day 3 00:00:19,673 --> 00:00:23,813 내 눈 속에 비친 arrow sign 2. 파워포인트에 유튜브 영상 등을 다운로드 받아 삽입합니다. (다운받은 영상은 개인적인 용도로만 사용할 것!) youtube.com/1234abc..

현재 폴더 내의 모든 wav 파일들을 mp3형식으로 변환하는 도스 명령어 for %%f in (*.wav) do ffmpeg -i "%%f" "%%~nf.mp3" - %%f는 발견된 파일명입니다. - %%~nf는 파일의 이름 부분만 추출합니다. - 긴파일에 대비해서 파일명에는 따옴표를 넣어줘야 합니다. - ffmpeg.exe 가 현재 폴더에 있거나 실행 가능한 경로에 있어야 합니다. 음질을 고음질로 유지하는 옵션은 아래와 같습니다. 44100Hz, 2채널, 192Kbps CBR 옵션입니다. for %%f in (*.wav) do ffmpeg -y -i "%%f" -ar 44100 -ac 2 -b:a 192k "%%~nf.mp3" 비디오 제거, 44100Hz, 2채널, 190~250Kbps VBR 옵션입니..

관련 : 지식인 오디오가 재생될 때 자막이 일정한 속도로 올라오게 하고 싶은 경우 간단히 생각하면, 자막 애니메이션이 위로 올라갈 때 그 재생시간을 오디오의 총 재생시간과 일치하게 하면 일정한 속도로 자막이 올라갈 것입니다. 물론 효과옵션에서 부드럽게시작과 부드럽게 종료를 0초으로 수정해야겠습니다. 어쨋든 이렇게 하면 애니메이션과 오디오 재생을 마치는 시간도 같을 것입니다. ​ 그런데 파워포인트에서는 애니메이션의 최대 재생시간이 59초로 제한이 되어 있습니다. 오디오가 긴 경우 오디오를 1분씩 나누고 텍스트상자도 여러개로 나눠서 만들어야 합니다. 이러면 문제가 복잡해지기 시작합니다. ​ ​ 1. 오디오의 길이에 상관없이 사용할 수 있는 또다른 방법은 오디오 책갈피를 이용하는 방법이 있습니다. ​ 오디오의..

위 그림과 같이 슬라이드 영역을 벗어나는 부분을 자동으로 잘라내주는 VBA매크로입니다. 사실 잘라내지 않아도 슬라이드 쇼에는 보이지 않기 때문에 문제가 되지 않습니다. 하지만 군더더기를 싫어하는 분들은 슬라이드를 벗어나는 도형이나 그림이 눈엣가시일 수도 있습니다. 도형의 경우 잘라내려면 슬라이드 외곽에 사각형 도형 등을 임시로 추가하고 원래 도형에서 이 임시 도형을 도형병합(빼기)로 빼내 주어야 합니다. 아래 삼각형처럼 위와 왼쪽이 벗어나는 경우 두 번 작업을 해줘야 합니다. 사진의 경우 그림 '자르기' 기능을 이용해서 벗어나는 영역을 Crop해주고 사진 위치와 크기도 알맞게 조절해줘야 합니다.특히 이 과정은 마우스로 하다보면 정확한 작업이 어렵고 번거로운 작업입니다.  이런 경우 아래 VBA를 이용하면..