파워포인트 파일을 열었을 때 마지막 페이지가 북마크처럼 뜨긴 하지만 마지막 페이지로 이동하는 기능은 없어서VBA를 이용해야겠습니다.​페이지를 이동하는 코드는 아래처럼 간단합니다. Sub onLoad() ActiveWindow.View.GotoSlide 페이지번호숫자 End Sub 현재 슬라이드 위치를 태그에 저장하는 코드는 아래와 같습니다. Sub SaveTag() ActivePresentation.Tags.Add "LastPage", ActiveWindow.View.Slide.SlideIndex End Sub  더 자세한 내용은 아래 클래스와 모듈 코드를 참고하세요.직접 입력하기에는 조금 복잡할 수 있으니첨부파일 다운로드 받아서 파일 속성에서 '차단해제'하고 매크로를 허용한 다음다..

예를 들어 1페이지에 4개씩 유인물 인쇄를 할 때 유인물 레이아웃을 이용해도 슬라이드 썸네일 크기나 여백을 세밀하게 조정할 수 없습니다. 사용자가 인쇄되는 슬라이드의 크기나 간격을 조절하려면원본 슬라이드의 크기를 조절하는 수밖에 없습니다.디자인 > 슬라이드 크기에서 4:3이나 16:9 혹은 사용자 지정으로 크기를 변경해야 합니다.당연히 원본의 가로:세로 비율이 달라지게 됩니다.​다른 방법은 각 슬라이드를 일단 그림으로 저장해서 각 슬라이드 그림을 불러와서 인쇄하는 방법입니다.​1. 파일 > 다른이름으로 저장에서 각 슬라이드를 PNG로 저장합니다.​2. 삽입 > 사진앨범을 누르고 저장한 PNG이미지들을 선택하고 4슬라이드씩 즉 그림4개씩으로 설정합니다. 그 다음 만들기를 누르고 생성된 사진 앨범을 편집하는..

1. 개발도구 > 추가기능에서 Web 으로 검색해서 Web Viewer 추가기능을 추가합니다.​​2. 추가된 Web Viewer 추가기능을 클릭하여 슬라이드에 추가하고 크기를 조절합니다.​3. 웹브라우저에서 구글 스트리트 뷰에서 점 세 개를 누르고 이미지 공유 또는 삽입 을 누르고지도 퍼가기 주소를 복사합니다.복사한 주소에서 www.google.com/maps 부터 따옴표 전까지 복사해서Web Viewer 주소에 붙여 넣습니다. 반드시 https:// 는 생략해야함에 유의하세요.www.google.com/maps/embed?pb=!4v1728815825435!6m8!1m7!1snvekigVIih0Czwl2yv3ozg!2m2!1d37.57485888109894!2d126.9771074238897!3f321..

워드 문서의 1페이지마다 사진(또는 사진 설명 포함)을 하나씩 일괄로 삽입하는 방법입니다.  매크로 안쓰는 방법​1. 파워포인트에서 삽입 > 사진 앨범 기능으로 사진 100장 일괄 삽입​2. 다른이름으로 저장이나 내보내기에서 PDF로 저장​3. MS워드에서 PDF파일 불러오기 > 자동 변환​​또는 아래와 같은 VBA를 이용할 수 있습니다. ChatGPT코드를 활용하였으나 오류가 다수 발생하여 대폭 수정하였습니다. 더보기Option ExplicitSub InsertImagesCenteredOnEachPage() Dim imgFolder As String Dim imgFile As String Dim imgPath As String, sExt As String Dim doc As..

위처럼 의료기기를 검색하는 사이트( https://emedi.mfds.go.kr/portal )의 검색결과를 엑셀로 가져오는 예시입니다. 여러가지 항목으로 검색할 수 있는데일단 명칭(query2)과 업체명(entpName) 으로 검색하는 예시 파일을 만들어 보았습니다. 첨부파일 매크로 허용해서 열고명칭이나 업체명을 입력하고 시작페이지 ~ 마지막 페이지를 입력하고마우스 우클릭해서 getMed 를 실행합니다.위와 같이 화면입니다.​내부적으로 xmlHttp를 이용해서https://emedi.mfds.go.kr/search/data/list?chkList=1&nowPageNum=1&tabGubun=1&query2=브러쉬&entpName=신원&chkGroup=GROUP_BY_FIELD_01&pageNum=1&se..

'철수와 영희가 같이 있다'에서 '철수'만 애니메이션을 적용하려면해당 부분만 따로 텍스트 상자를 만들어야 합니다.​그런데 따로 텍스트상자로 복사해서 위치를 맞추고 편집하는 것이 매우 귀찮은 작업입니다.​이런 경우 아래 VBA를 이용하면 빈칸을 기준으로 텍스트를 분리해서자동으로 단어마다 텍스트 상자를 만들어줄 수 있습니다.​​alt+F11 창에서 삽입 > 모듈 추가한 후에 아래 코드를 붙여넣습니다.그리고 코드 창을 닫고 원하는 텍스트 상자나 도형을 선택한 상태에서 Alt+F8을 누르고 매크로를 실행하면 되됩니다.더보기Option Explicit'Const SplitChar = "/"Const SplitChar = " "Sub SplitCurrentTextframe() Dim shp As Shape, ..

VBA를 이용해서 위와 같은 애니메이션 점수판을 자동 생성합니다. 작동화면입니다. 애니메이션 창을 켜놓아서 영상 뒷부분은 버벅입니다.  점수판을 생성하고 싶다면 첨부파일을 차단해제하고 매크로 허용해서 열고새 슬라이드에서 Alt+F8 로 Auto 매크로를 실행합니다. 그러면 팀의 개수와 최고 점수를 묻는데 5, 10 을 입력하면 5팀 10점짜리 점수판이 생성됩니다.2,15 라든가 4, 5 혹은 10, 5 등 원하는대로 팀의 개수와 최고 점수를 입력할 수 있습니다.  가장 큰 특징은 아래처럼 모든 기능이  VBA가 필요 없이 애니메이션으로 구동한다는 점입니다.애니메이션으로 직접 만드는 방법은 지식인 링크를 참고하세요.투명도형과 약간 복잡한 트리거 애니메이션을 이용하였습니다.최종 결과물은 매크로를 제외하고 p..

데이터를 타이핑하는 대신 간단히 옵션을 클릭해서 선택해서 입력하고 싶다면엑셀로 하는 것이 간편하고 효율적입니다.​'과일' 이름이 들어갈 셀을 선택하고 나서데이터 > 데이터 유효성검사를 누르고 원본에 '사과,배,딸기,바나나'를 입력하면 됩니다.원본란에 시트의 특정 셀 영역을 선택해도 됩니다.​​◆ ◆ ◆ ◆ ◆​​파워포인트에서 VBA를 활용해야 합니다.ListBox 나 ComBoBox를 이용해서 목록을 선택하게 할 수 있습니다.그런데 파워포인트 Active-X 선택상자는 슬라이드쇼에서만 작동하고슬라이드쇼를 새로 시작하면 목록이 초기화되어 버리며또한 선택한 값이 양식상자안에 들어 있어서 값을 가져오기도 어렵습니다.양식상자에서 선택한 값을 표에 남겨놓는 방법을 써야 합니다.​ComboBox 와 SpinButt..