관련: 지식인 VBA를 이용해서 일반 Shape 개체내의 텍스트에는 아래처럼 윤곽선 서식을 적용할 수 있습니다. With shape.TextFrame2.TextRange.Font.Line .Visible = msoTrue .ForeColor.RGB = RGB(255, 127, 127) .Weight = 0.2 End With 그러나 표(테이블)의 텍스트에 위 내용을 적용하면 실제로 적용이 되지 않습니다. 물론 사용자가 마우스로 서식을 적용하면 되긴 하지만 VBA로 이런 작업을 자동화할 수 없게 됩니다. 셀안의 텍스트에 윤곽선 지정, 글자에 그라디언트 색깔 채우기, 3D효과 적용 등이 VBA로는 불가능하게 되어 매우 불편합니다. 테이블(표)의 Shape 개체는 일반 슬라이드의 Shape 개체와 똑같지 않고..

관련: 지식인 파워포인트 슬라이드 페이지번호를 넣을 때 "현재페이지 / 총페이지"로 하는 경우입니다. 1. VBA로 슬라이드마다 '현재페이지 / 총 페이지' 형식으로 페이지번호를 필요할 때마다 넣는 방법 Alt-F11 누르고 메뉴에서 삽입> 모듈 추가한 다음 아래 코드를 넣고 F5키나 일반 슬라이드편집화면에서는 Alt-F8로 매크로를 실행합니다. ​ 아래 매크로는 특히 원하는 페이지부터 1페이지로 시작할 수 있습니다. .Text = (sld.SlideIndex - PageStart + 1) & " / " & (sld.Parent.Slides.Count - PageStart + 1) 이 부분을 수정하면 원하는 형태로 슬라이드 번호 삽입이 가능합니다. 더보기 '시작 페이지 지정 Dim PageStart As..

VBA에서 텍스트를 URLEncode/URLDecode 하는 것은 아래 함수를 이용할 수 있습니다. Function ENCODEURL(varText As Variant, Optional blnEncode = True) Static objHtmlfile As Object If objHtmlfile Is Nothing Then Set objHtmlfile = CreateObject("htmlfile") With objHtmlfile.parentWindow .execScript "function encode(s) {return encodeURIComponent(s)}", "jscript" End With End If If blnEncode Then ENCODEURL = objHtmlfile.parentWind..

관련 답변: 지식인 엑셀 연결할 필요 없이 파워포인트에서 직접 해당사이트의 데이터를 크롤링해오도록 했습니다. ​ 네어버 finance의 경우 각각의 데이터를 JSON형식으로 서버에서 받아옵니다. 달러 환율 JSON데이터 두바이유 JSON데이터 위와 같은 축약된 형태의 데이터형식이 JSON으로 이 데이터 형식은 서버자료를 가져올 때 주로 사용됩니다. VBA에서는 JSONConverter 변환 라이브러리를 이용했습니다. (Dictionary를 사용했기 때문에 도구>참조에서 Microsoft Scripting Runtime 체크 필요함) ​ 서버의 데이터를 가져올 때 Set JSON = ParseJson(JSON문자열)로 파싱해서 JSON("속성1")("속성2") 혹은 배열인 경우 JSON(1)("속성1")(..

파워포인트 슬라이드쇼 상태에서 키보드로 기록을 하려면 Active-X 개발도구 양식을 이용해야 합니다. ​ 기존에 파워포인트로 방명록을 만들어 둔게 있습니다. 이걸 화면만 약간 수정하면 되겠습니다. ​ https://konahn.tistory.com/entry/OfflineGuestbookwithPPTEXCEL 슬라이드 화면 자체에 저장할 수도 있겠지만 엑셀에 저장해서 관리하는 게 좋겠습니다. 엑셀이 데이타베이스(Database)역할을 하게 됩니다. 화면 구성: ​ 특히 '일시'를 누르면 현재 시간이 자동으로 입력됩니다. 실행 영상: 엑셀 저장 결과: ​위와 같이 엑셀에 누적되어 저장됩니다. 첨부파일 매크로 허용해서 열어서 테스트해보세요. 엑셀 회의록.xlsx파일은 없으면 자동으로 생성됩니다. 회의록.x..

1. 일단 슬라이드쇼를 두 개 실행하려면 각각의 슬라이드쇼 설정에서 '웹형식으로 진행'으로 설정합니다. ​ 2. 한쪽 ppt에 VBA코드를 추가합니다. Alt-F11 창에서 삽입메뉴에서 모듈을 추가하고 아래 코드를 붙여 넣습니다. Option Explicit '슬라이드쇼 페이지가 바뀔 때마다 호출되는 파워포인트 함수 Sub OnSlideShowPageChange(SSW As SlideShowWindow) Dim SW As SlideShowWindow Dim pos As Long '현재 쇼의 위치 pos = SSW.View.CurrentShowPosition '모든 쇼 순환 For Each SW In SlideShowWindows '만약 현재 쇼가 아니면 If Not SW Is SSW Then _ SW.V..

"세 살 버릇 여든까지 간다"라는 속담처럼 초보시절 코딩 습관이 경력직이 될 때까지 이어질 수 있습니다. 사소한 습관 하나가 크나큰 버그를 초래할 수도 있고 작은 습관이 치명적 에러를 피할 수 있게 해줄 수도 있습니다. Alt-F11 코드창에 VBA코드를 작성할 때 주의할 사항 혹은 지키면 좋은 습관 몇가지를 생각나는대로 모아봤습니다. 1. Option Explicit 항상 이거 맨 처음에 써주세요. 안써도 되지만 오타방지해줍니다. Explicit는 '명시적인'이라는 뜻인데 미리 Dim i as Integer 라고 명시적으로 선언하고 쓰겠다는 뜻입니다. 미리 선언하지 않은 변수는 실행시 에러를 출력하기 때문에 오타를 찾아내주고 항상 미리 변수 선언하는 (초보자로서) 좋은 습관을 길러줍니다. 또한 미리 변..

파워포인트 차트를 EMF로 저장했다가 다시 삽입 후 우클릭하고 오피스 도형으로 변환해도 축이나 제목 등의 글자가 있는 부분은 여전히 변경 가능한 텍스트박스상태로 남아있습니다. 나중에 편집이 가능한 점은 있지만 폰트가 없으면 다른 폰트로 보이게 되고 확대 축소 등의 사이즈를 변경할 때 폰트 크기가 변경이 안되어 불편하기도 합니다. 텍스트 박스를 순수한 자유형도형으로 변환할 수 있습니다. 텍스트박스나 글자가 있는 도형은 2013이후 도입된 기능인 도형병합(빼기)를 이용하면 점편집이 가능한 순수한 자유형도형으로 변환됩니다. 도형병합으로 처리하는 방법은 바로 해당 텍스트 도형에서 아무 빈 도형을 빼주면 됩니다. 이 방법을 이용해서 차트 > EMF 로 저장하여 도형으로 변환해서 그룹을 해제하고 내부 텍스트 도형들..