예를 들어 자막 파일이 있을 때 이 자막을 나눠서 여러 슬라이드에 삽입하고 싶은 경우입니다. 여기서는 텍스트를 엑셀파일에 정리하고 프레젠테이션의 마지막 슬라이드가 기준이 되어 해당 기준 슬라이드의 텍스트상자를 기준으로 자막 슬라이드를 일괄로 생성하는 조건입니다.​1. 작업 편의상 엑셀파일에 장문의 텍스트를 정리합니다. 텍스트 파일의 경우 단순히 줄바꿈을 기준으로 슬라이드를 나눌 수 있는데 여러 줄을 한 슬라이드에 넣을 때는 그 기준이 모호합니다. 그래서 여기서는 엑셀 행으로 슬라이드를 구분하도록 합니다. 한개의 행의 내용이 한 슬라이드에 들어갑니다. Shift+Enter를 쳐서 여러 줄을 넣을 수 있습니다. 만약 여러 행의 글인 경우 일단 A열의 특정셀에 붙여넣어 두고 우클릭해서 SplitByLines ..

VBA에서는 Set  Shp = 슬라이드(또는 시트).Shapes.AddShape (도형모양, 가로, 세로, 넓이, 높이) 와 같은 명령으로슬라이드에 도형을 삽입할 수 있습니다. 파워포인트에는 미리 정의된 여러가지 도형모양이 있습니다. 위의 도형 모양에 대한 예약어(MsoAutoShapeType)는 아래 링크에서 알 수 있습니다.https://learn.microsoft.com/en-us/office/vba/api/office.msoautoshapetype  그러나  AutoShapeType 이름으로는 화면상의 실질적인 도형모양 생김새를 미리 알기가 어렵습니다.어떤 도형이름을 사용해야 하는지 그림으로 보여주지 않습니다. 그래서 미리 정의된 도형이름 및 내부도형숫자(값)와 실질적인 도형모양을 직접 보여줄 ..

이번 미션은 위와 같이 1슬라이드에 프레젠테이션 목차가 있을 때슬라이드가 추가되거나 삭제될 때 목차슬라이드의 페이지 정보가 자동으로 업데이트되게 만드는 것이 목표입니다.  아래한/글의 경우 도구 > 제목차례 표시를 하고  '차례 만들기' 기능 > '차례 코드로 모으기'를 이용해서 목차 차례를 자동으로 만들 수 있습니다.  MS Word 에서도 위와 비슷한 기능을 지원합니다.제목 스타일을 지정하고 참조 - 목차 - 사용자 지정 목차 를 선택해서 차례를 만들 수 있습니다. 나중에 아래한/글에서는 차례 새로고침을 누르거나  워드의 경우 필드 업데이트 > 페이지 번호 업데이트를 눌러주면 자동으로 페이지 번호가 수정됩니다.  아쉽지만 파워포인트에서는 제목 차례/ 목차 페이지 번호 업데이트와 같은 기능을 지원하지 ..

365 버전에는 엑셀 셀에 체크박스 즉, 확인란을 넣는 기능이 있습니다. 구버전에서는 이런 기능이 없어서 VBA로 삽입하는 방법입니다. 1. Active-X 체크박스 컨트롤 첨부파일을 열고 원하는 셀들을 선택하고  AddXCheckBox를 실행하면 아래처럼 삽입해줍니다.체크박스가 너무 작고 디자인이 너무 단조로운 단점이 있습니다.장점은 True와 False 값을 갖고 있어서 VBA등에서 값을 이용할 수 있습니다.디자인모드일 때는 도형이 선택만 되므로 디자인 모드를 풀어줘야 합니다.  액티브-X체크박스 코드입니다.더보기선택된 셀들에 Active-X 체크 네모 삽입Sub AddXCheckBox() Dim sht As Worksheet, shp As Shape, rng As Range Dim..

엑셀 영역을 복사해서 파워포인트 표에 Ctrl+V, 대상 스타일 사용 혹은 원본 스타일 유지로 붙여넣으면 아래처럼 기존 파워포인트 표안의 셀의 배경이나 윤곽선 서식은 유지하지만나머지 기존 텍스트의 폰트설정, 글자크기나 색상, 글자배경색, 글자 정렬은 속성을 모두 잃어버리게 됩니다.즉, 표의 셀속성은 유지하지만 셀 안의 글자 속성은 유지하지 않습니다. 슬라이드 표안의 기존 글자 속성이 모두 사라지므로붙여넣기 후에 글자 속성을 다시 적용해야하는 번거로움이 발생합니다. 이 때 다른 방법으로 Ctrl+Alt+V 선택하여 붙여넣기로 HTML형식이나 서식없는 RTF 형식 등으로 붙여넣어도 해결할 수 없습니다.  서식없는 Text형식으로 붙여넣으면 셀 하나에 내용이 다 들어가버립니다.​    이럴 때 파워포인트 테이..

참고: 지식인이 글은 워드 파일을 열었을 때 마지막에 편집했던 페이지로 돌아가는 기능에 대한 것입니다. 예전 워드2003시절에는 Shift+F5키로 마지막 저장 페이지로 이동할 수 있으나요즘 버전에서는 지원하지 않는 기능입니다. VBA에서도 아래와 같이 이전 책갈피 위치로 돌아가는 명령어가 사용가능했지만 현재는 작동하지 않습니다.Application.GoBackSelection.GoTo What:=wdGoToBookmark, Name:="\PrevSel1"​ 대신 저장하고 파일을 열면 아래와 같은 표시가 떠서 이걸 누르면 이전에 저장했던 페이지로 이동할 수는 있습니다.​자동으로 마지막으로 편집하던 페이지가 열리게 하려면 아래와 같은 VBA를 이용해야겠습니다. AutoClose 함수를 이용해서 파일을 닫을..

첨부파일에서 마우스 우클릭을 하면 Get Gemini Selected 와 Get Gemini All 메뉴가 뜹니다.   Get Gemini Selected 는 현재 선택된 셀들에 대해 구글 Gemini 에게 [B1]셀에 주어진 프롬프트를 이용해서 명령을 보내서 돌아온 다시 쓴 문장을 원래 셀 오른쪽에 가져옵니다. Get Gemini All 은  B열에서 B1을 제외한 모든 B:B셀의 문장에 대해 [B1]의 프롬프트 명령을 실행해서 답변 결과를 각 셀의 오른쪽에 가져옵니다.  먼저 구글 API가 필요합니다. API 키 가져오기 | Google AI Studio 위 사이트에 자신의 구글 계정으로 로그인해서  'API 키 만들기'를 클릭하여  API 키를 생성하고 복사합니다.AIza~로 시작하는 40자리 알파..

워드 문서가 페이지 수가 너무 많아서 로딩이나 스크롤이 오래걸리고 지연될 때긴 문서를 일정 단위로 분할하여 저장하는 워드 VBA입니다. 일단 아래 코드는 테스트를 위해 현재 워드 문서에 원하는 만큼의 빈 페이지를 추가하고각 페이지 상단에 페이지 번호를 추가합니다.Sub AddPagesAndPageNums() Dim i As Long Dim totalPages As Long Dim rng As Range ' 총 페이지 수를 100으로 설정 totalPages = 100 ' 문서에 페이지가 부족하면 추가 While ActiveDocument.ComputeStatistics(wdStatisticPages)   아래 코드는 현재 문서를 20페이지씩 분할하여 0001.docx, 0002.docx, 0..