1. '샘플50.pptx'파일을 '샘플50.ppsx' 로 저장한 다음 엑셀에서 하이퍼링크를 "샘플50.ppsx#12, 샘플50.ppsx#34" 로 하는 것이 가장 간단한 방법입니다. ​ ​ 2.pptx파일을 특정 페이지를 열고 싶다면 VBA를 이용해야겠습니다. https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=335538903#reply1 엑셀에서 하이퍼링크를 통해 특정 PPTX의 특정 페이지로 이동하는 방... https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=335523640&ref=me1lnk&a... kin.naver.com 3. 이미 창이 열린 경우에는 해당 창..

VBA 처리과정도 마우스로 슬라이드의 표(테이블)을 복사해서 엑셀 시트에 붙여넣는 것과 유사합니다. ​ 테이블.Copy 해서 시트의 셀.Paste 하거나 시트.PasteSpecial로 붙여넣습니다. ​ 테이블이 여러개 일텐데 아래와 같은 샘플을 만들었습니다. ​ VBA코드: 더보기 'Copy the table content on each slide to Excel sheet Option Explicit Const TextOnly As Boolean = False Sub CopyTableToSheet() Dim xl As Object 'New Excel.Application Dim wb As Object 'Excel.Workbook Dim sht As Object 'Excel.Worksheet Dim rn..

원래는 VBA에서 아래와 같은 명령으로 선택된 도형의 폰트 윤곽선을 없앨 수 있습니다. ActiveWindow.Selection.ShapeRange.TextFrame2.TextRange.Font.Line.Visible = msoFalse 하지만 VBA 버그인지(?) 작동하지 않습니다. Line.Visible = msoTrue 는 작동하지만 Line.Visible = msoFalse 는 작동하지 않습니다. 엑셀에서 매크로 녹화를 해도 위와 같은 코드가 나오지만 실행하면 적용이 되지 않습니다. 직접 도형이나 텍스트를 선택하고 윤곽선 '없음'을 선택하면 적용이 됩니다. ​ VBA에서 처리하려면 임의의 텍스트 상자를 만들고 텍스트를 거기에 붙여넣고 다시 원래 도형에 붙여넣는 식의 작업을 해야합니다. 텍스트의 다..

첨부한 VBA는 슬라이드에서 '궁서체'폰트로 작성한 개체(도형)를 찾아줍니다. 특히 슬라이드 마스터까지 검색합니다. 그룹으로 묶인 경우도 검색합니다. 표의 경우도 검색합니다. 만약 찾았다면 찾은 부분을 선택해줍니다. 그리고 기본폰트(.Name), 아시아폰트(.NameFarEast), 스크립트폰트(.NameComplexScript), 기타(,.NameOther) 등 어떤 폰트로 사용되었는지, 언어코드는 무엇인지 메시지 박스를 띄워줍니다. '확인'을 누르면 계속 다음 개체를 찾습니다. '취소'를 누르면 찾기를 중단합니다. 다른 폰트를 검색하려면 FontName을 수정하고 매크로를 실행합니다. 더보기 Option Explicit Const FontName = "궁서체" Sub FontFind() Dim pre..

간혹 위와 같은 메시지로 당황시키는 경우가 있습니다. 다행히 위처럼 복구가 되면 다행입니다. 복구되었어도 일부 애니메이션이나 개체가 누락, 손실될 수 있습니다. 특히 저장하는 과정에서 프리젠테이션에 문제가 생겨 저장할 수 없고 읽기전용이 되어버리는 심각한 경우도 있습니다. 그럴 경우 저장이 안되기 때문에 어떤 조치를 할 수가 없습니다. 1. 일단 보험으로 탐색기로 찾아가서 현재 pptx파일을 복사해서 복사본을 만들어 놓습니다. ppt내부의 특정 슬라이드에서 개체나 애니메이션의 구성에 문제가 생긴 것이기 때문에 파일은 복사가 됩니다. 이 조치는 만일을 대비한 것으로 필수적인 것은 아닙니다. 2. 새 프리젠테이션을 시작하세요. 그리고 문제가 발생한 PPT의 왼쪽 미리보기창의 슬라이드들을 모두 복사하고 새 프..

상단에는 시계가 돌아가고 Start 를 누르면 타이머(스톱워치)가 작동하고 Record 를 누를 때마다 현재 시간을 기록하고 누적합니다. 타이머 시간을 누르면 잠시 일시정지 혹은 재시작합니다. Reset 을 누르면 초기화 합니다. 누적 된 타이머 기록은 타이머 아래 텍스트 상자에 쌓이게 됩니다. 더보기 Option Explicit #If VBA7 Then Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr, _ ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr Declare PtrSafe Function KillTimer..

바로 이전 게시글의 VBA 필요 없는 룰렛만드는 룰렛 생성기를 좀더 편리하게 만들 수 있도록 개선한 버전입니다. 위 그림에 보다시피 리본 메뉴를 추가했습니다. 일단 룰렛 항목수를 선택 혹은 입력하고 룰렛 생성을 누르면 3슬라이드에 원하는 개수대로 룰렛판이 생성이 됩니다. 계속 누르면 색깔이 바뀝니다. 다른 작업 필요 없이 룰렛 숫자만 바꾸고 생성을 클릭하기만 하면 됩니다. 그런데 파워포인트 애니메이션의 설정 혹은 버그 때문에 기본으로 전환메뉴에 '마우스로 클릭할 때' 전환에 체크가 되어 있기 때문에 다음클릭할 때까지 반복 옵션이 제대로 작동하지 않고 클릭할 때 나타나는 애니메이션이 무시되고 슬라이드가 넘어가거나 종료되어 버립니다. 내부적으로 슬라이드 마스터 4번 레이아웃에 회전판 샘플을 넣어두고 애니메이..

지난 버전에 이어서 이번에는 첫슬라이드에 시계 도형을 만들 필요 없이 전부 VBA로 clock 시계도형을 추가하도록 수정해보았습니다. 사용자가 할 일은 아래의 VBA코드를 복사해서 사용자의 PPT 의 Alt-F11 VBE 코드창에 붙여넣는 것 뿐입니다. 구체적으로 말하자면 파워포인트 일반편집창에서 'Alt-F11'키 눌러서 VBE코드창 연 다음 [삽입 - 모듈] 메뉴에서 '모듈'을 하나 추가하고 아래에서 복사한 코드를 붙여넣고 F5 슬라이드쇼 테스트 한번 하면 됩니다. 혹시나 시계가 시작하지 않는다면 Alt-F8 누르고 'FirstRun' 함수를 딱 한번만 실행시켜주세요. (이건 혹시 SlideShowPageChange가 간혹 실행되지 않는 것을 막기 위해 1슬라이드에 Label 컨트롤을 하나 추가해줍니..