mp3나 wav등의 오디오를 한 개씩 슬라이드에 넣을 수 있는데 여러개의 오디오 파일을 순차적으로 재생되게 하려면 단일 mp3파일이 아니라 m3u같은 플레이리스트 파일을 재생하도록 하면 됩니다. ​ mp3 플레이리스트 파일확장자가 바로 m3u 입니다. (wma 는 플레이리스트나 스트리밍용으로 .wax확장자를 사용합니다.) ​ 1. M3U파일의 형식은 별다른게 없고 아래처럼 mp3파일의 경로와 이름만 텍스트 형식으로 순차적으로 넣어주면 됩니다. ​ playlist.m3u의 내용 예시 ::>> .\01.mp3 02.mp3 03.mp3 C:\temp\04.mp3 폴더이름을( 예를 들어 C:\Temp ) 넣으면 폴더내의 모든 파일이 재생됩니다. m3u파일이 있는 폴더에 mp3가 있으면 경로는 적지 않아도 됩니다..

오디오를 MCISendString API를 이용해서 재생/일시정지/재시작/정지할 수 있습니다. 여기서 재생위치를 실시간으로 Timer API를 이용해서 표시하는 예시입니다. MCISendString 명령어 목록: https://docs.microsoft.com/en-us/windows/win32/multimedia/multimedia-command-strings?redirectedfrom=MSDN 실행 영상: 코드 보기: 더보기 Option Explicit #If VBA7 Then Public Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr, _ ByVal uElapse As Lo..

사진을 삽입하고 맨 뒤로 보내는 간단한 작업을 VBA 매크로로 만들어 보았습니다. 실행영상: 개발도구 - 매크로에서 실행하거나 빠른 실행에 추가할 수도 있는데 첨부파일의 경우는 매크로 허용하면 자동으로 오른쪽 마우스 메뉴에 myAddPicture 명령을 추가합니다. ​ 간단히 마우스 우클릭 후 그림 선택해서 삽입할 수 있습니다. 현재는 슬라이드 한 가운데 삽입합니다. 그림을 여러개 삽입할 수도 있습니다. 그림의 이름은 파일명으로 수정합니다. 그림이 슬라이드보다 클 경우 슬라이드에 맞춥니다. 기본폴더는 매크로파일의 현재 위치인데 Alt-F11 Module1에서 Defaultfolder 값을 "C:\Temp\" 처럼 수정할 수 있습니다. 첨부파일은 onLoad 함수가 매크로 허용되면 자동으로 실행되어 마우스..

pptx 파일의 고급 속성에 사용자 지정 속성에는 특별한 자신만의 일종의 '태그'를 남길 수 있습니다. 직접 값을 입력하고 추가/수정/삭제가 가능합니다. VBA로도 제어할 수 있습니다. 아래 예시는 Signature 라는 항목에 "user123" 이라는 값을 남기는 예시입니다. Option Explicit Const myName As String = "user123" '//your name Const mySign As String = "Signature" Sub AddSignature() Dim prop As DocumentProperty Dim Found As Boolean With ActivePresentation '.BuiltInDocumentProperties("author") = "user" F..

위와 같이 빨강, 녹색, 파랑을 섞어서 LED등의 RGB색상이 변하는 것을 시뮬레이션 해보려고 합니다. (관련: 지식인 링크 ) 먼저 화살표가 돌아가는 주변 눈금 만드는 것도 간단하지 않기 때문에 만드는 방법을 먼저 확인하세요. 도형병합(조각) 이용 다음으로 눈금을 복사해서 세가지 색깔마다 눈금과 TextBox 그리고 스핀버튼 컨트롤을 추가하고 LED 그림을 그리고 최종 색깔 삼각형까지 추가합니다. ​ 마지막으로 약간의 VBA코드를 입력합니다. 모듈이 아니라 현재 슬라이드의 코드창입니다. 현재 슬라이드 Slide1, Slide2 라는 이름은 슬라이드를 삭제하면 번호가 슬라이드 순서와 달라지는 것에 유의하세요. 샘플파일은 첫번째 슬라이드에 들어 있지만 슬라이드이름은 Slide3입니다. 더보기 '스핀 버튼을..

오피스365 구독버전에서는 클라우드 폰트를 사용합니다. 서버에 항상 폰트가 있기 때문에 해당 폰트를 사용하면 공유하더라도 폰트를 포함할 필요가 없는 장점이 있습니다. 그런데 해당 폰트가 사용되어야 혹은 구름모양 아이콘을 눌러서 다운로드해야 로컬에 하나씩 다운받아집니다. 필요할 때 혹은 사용될 때 다운로드 받아지므로 한꺼번에 다운받을 필요는 없으나 조금이라도 작업지연되는 것을 막고자 일괄 다운로드 하고 싶으나 해당 기능은 제공하지 않습니다. 이 때 VBA를 이용해서 일괄 다운로드 받는 방법입니다. (다운로드 받는다고 속도가 빨라지지는 않고 글꼴 목록이 더 많아져서 글꼴목록 로딩이 더 오래 걸리네요-.-;) 원래 아래 유투브에서 워드용 매크로를 공개하였습니다. https://www.youtube.com/em..

최근 365 구독버전 2104(빌드 139.6.20000 간편실행) 베타채널 이상에서는 개체 잠금 기능을 지원합니다. ​ Alt-F10 개체 선택 창에서 자물쇠 모양을 누르거나 마우스 우클릭 후 잠금을 선택합니다. 참고: https://m.blog.naver.com/radiobj5/222270903352 365하위버전이나 2019이하 버전에서는 아직 지원하지 않기 때문에 개체에 잠금효과를 주려면 개체(도형)를 슬라이드 마스터로 보내는 번거로운 방법을 써야만 합니다. 그래서 이 과정을 VBA로 자동화 시키고 빠른실행에 추가해서 Alt+숫자키로 빠르게 도형을 잠그고 풀 수 있도록 해보았습니다. ​ 개체 잠금/풀기 효과 구현 영상 VBA로 개체 잠그고 풀기 Lock 매크로는 현재 선택된 도형을 감추고 이 도형..

정확한 각도를 그리고 싶을 때 위와 같이 각도표시를 자동으로 그려주는 매크로입니다. 첨부파일 다운로드 후에 매크로 허용해서 여세요. Alt-F8누르거나 개발도구 - 매크로로 DrawAngle 매크로를 실행하세요. 그러면 각도를 물어볼텐데 거기에 원하는 각도를 입력하세요. 그러면 자동으로 계산해서 그려줍니다. 각도를 나타내는 호는 원호를 그리고 조절값을 각도에 맞게 조절합니다. 직선도 Cos, Sin 을 이용해 계산해서 그려줍니다. ​ 아래 실행 영상 참고하세요. 더보기 Option Explicit Sub DrawAngle() Dim sld As Slide, shp As Shape Dim usr As String Dim ang As Single, Asize!, Lsize!, SW!, SH!, x!, y! ..