실마리

매크로 설명 파워포인트 각 슬라이드의 텍스트 서식 중에서 색깔을 일괄적으로 변경하는 매크로이다. 파워포인트 슬라이드가 많아질수록 직접 변경하기 번거로울 때 사용하면 좋다. 변경되는 Shape는 텍스트를 가진 텍스트박스, 도형, 표의 모든 텍스트이다. 파워포인트가 실행되어 있어야 하고, 코드는 엑셀에 작성하여 제어하는 방식이다. 엑셀 개발자도구에서 PowerPoint Object Library를 참조해주어야 한다. ※ 차트의 글씨 색깔은 변경하지 않는다. (참고) 적용 결과 매크로 실행 동영상 VBA Code Option Explicit Sub c_changer() Dim pptRef As PowerPoint.Application Dim sld As PowerPoint.Slide Dim shp As Pow..

매크로 설명 지난 번 포스팅을 약간 수정하여 보다 보편화된 상황에서 사용할 수 있도록 만든 매크로이다. (http://ruahneuma.tistory.com/57 "강제 줄바꿈 셀 분리하기") 특정 구분자(예, 콤마, 띄어쓰기, 콜론 등)로 나열된 셀 내용을 행을 추가하여 별도로 분리하는 매크로이다. targetChr 변수에 원하는 구분자를 입력하여 쉽게 분리할 수 있다. VBA Code Sub forced_enter_separation() Dim k As Integer, cnt As Integer Dim varSize As Integer Dim lastRow As Integer Dim myColumn As String Dim targetChr As String With ActiveSheet.UsedRa..

매크로 설명 개인적인 필요에 의해서 만든 포토샵 매크로이다. 파노라마 사진을 Merge 하고 남은 투명 배경, 여러 장의 사진을 Stack 모드로 불러와서 Align 했을 때 생기는 투명 배경, 렌즈에 의해 생긴 왜곡이나 수평 맞춤을 했을 때 잘라내야 하는 부분이 직사각형(Rectangle)이 아닌 경우 포토샵의 Trim 기능이 먹히지 않는 경우에 투명 배경만큼을 잘라내는 매크로이다. 전체적인 흐르은 1: 투명 배경의 일부 선택, 2: Grow 기능으로 투명 배경 확장, 3: 투명배경의 좌표(Coordinate) 탐색 및 삭제 동영상을 보면 이해가 쉬울 것으로 생각한다. 원래 사진 작업을 하시는 분들은 Content-aware Fill 기능을 활용하여 원본 픽셀을 보존/확장하면서 훼손을 최소화하지만 본인..

S Y N O P S I S #VBA로 사용 중인 영역의 경계 선택하기 보통 사용 중인 영역을 Application.UsedRange로 설정하여 작업을 수행하게 되는데, 간혹 엑셀 시트를 만지다보면 데이터가 없는 영역인데도 불구하고 UsedRange가 선택하는 경우가 있다. 이 경우에는 셀 서식이 변경되었거나 변경 후 삭제를 했으나 저장을 하지 않은 경우 UsedRange로 인식할 수 있다. 이를 해결하기 위해 UsedRange가 아닌 실제 데이터 값만 들어 있는 UsingRange를 인식하도록 구현한 매크로이다. VBA Code Option Explicit Sub usingRng() Dim firstRow As Long Dim firstCol As Long Dim lastRow As Long Dim l..

매크로 설명 엑셀의 VBA 코드를 활용하여 포토샵 이미지를 리사이즈 하고 Export까지 수행하는 매크로이다. 인스타그램을 하다보니 최종편집 후 1080 사이즈의 이미지를 만드는 게 귀찮기도 하고, 포토샵의 액션 기능을 사용하는 경우 원본 Document의 사이즈에 따라 크기가 제멋대로 나와서 만들어 보았다. 가로 이미지와 세로 이미지를 인식하여 장축이 가로인 경우에는 가로가 1080이 되도록, 세로가 장축인 경우에는 세로가 1080이 되도록 리사이즈한다. VBA Code Option Explicit Sub resize_image() Dim appPhoto As Photoshop.Application Dim docPhoto As Photoshop.Document Dim imgSize As Double D..

매크로 설명 셀 또는 셀 범위를 선택하여 해당 셀 크기에 맞게 사진을 삽입하는 매크로이다. 선택된 셀이 범위인 경우 해당 셀을 병합한 뒤에 삽입한다. 매크로를 사용하는 방법은 아래 동영상 참고 매크로 실행 동영상 VBA Code Sub insert_image() Dim selRng As Range Dim rngTop As Double Dim rngLeft As Double Dim rngHeight As Double Dim rngWidth As Double On Error Resume Next Set selRng = Application.InputBox(prompt:="셀 또는 범위를 선택하세요.", Type:=8) '셀 선택 If Err.Number > 0 Then Exit Sub '선택하지 않은 경우 ..

매크로 설명 워크시트 데이터 중에서 강제 줄바꿈(Alt + Enter)이 들어간 셀을 나누는 매크로이다. 코드의 요점은 강제 줄바꿈이 있는 셀을 찾아서 줄바꿈을 카운트하고 해당 카운트만큼 셀을 삽입하는 방식이다. 필요에 의해 가볍게 쓰려고 만든 코드이다. 곧바로 가져다 쓰기에는 무리가 있을 수 있다. (알맞은 변형이 필요하다.) 매크로 실행 동영상 VBA Code Sub forced_enter_separation() Dim k As Integer, cnt As Integer Dim varSize As Integer Dim myColumn As String Dim lastRow As Integer With ActiveSheet.UsedRange lastRow = .Row + .Rows.Count '마지막 ..

## VBA2010 Guide VBA에 관한 매뉴얼이다. 게다가 한글화되어 있다. 상수, 날짜 형식, 지시문, 이벤트, 함수, 그룹, 키워드, 메서드, 개체, 연산자, 속성, 문 필요한 VBA 지식의 '운'을 띄울 수 있는 가장 강력한 교재라고 생각한다. ## Excel/PowerPoint 2013 Developer Documentation 엑셀과 파워포인트 2013의 개체모델, 간략한 코드 예제를 제공한다. 별도의 강의서적이 필요없을 정도로 풍부하다. (MS가 설치된 환경이라면 chm 파일을 검색하는 것만으로도 쉽게 구할 수 있다.) 정보제공 차원에서.. VBA Guide.chm 실행 화면

## 웹 페이지 크롤링(실험)회사 업무중에 웹 페이지를 크롤링 해야 할 일이 생겨서 찾아보던 중자바나 다른 언어는 할 줄 모르기 때문에 현재 내가 할 수 있는 가장 쉬운 방식을 찾았다.구글 스프레드시트 importxml 함수를 통힌 파싱도 쉬워(노가다)보이는데 웹페이지에 따라서 제약이 좀 있는 듯하다. ※ "동일한 형식의 데이터를 보여줄 동일한 웹페이지를 URL 형식으로 모두 인덱싱 할 수 있어야 한다."는 점이 중요해 보인다.무슨 소리나면, 요새 웹페이지들이 http://도메인 이후 파라미터를 숨겨놓은 데가 많은데,그래서 페이지 인덱스가 바뀌어도 URL은 그대로라서 URL by URL 방식의 크롤링이 (마치 안되는 것처럼) 보인다.그런데 거꾸로, 페이지 인덱스만 찾아준다면 아래의 VBA 코드를 이용해서..

개체모델(Object Model)이란? 개체모델(Object Model)은 특정 개체의 모든 구성 요소를 구분하고 분류하기 위한 일종의 틀이다. 하나의 건물을 개체모델의 예로 들어보자.여기 관악구청이 있다. 관악구청은 여러 개의 부서로 나눠질 것이고,각 부서마다 팀이 있고 각 팀마다 책상, 의자, 컴퓨터, 사람 등 무수한 개체가 있을 것이다.누구든지 관악구청의 서무과의 경리팀에 있는 의자에 앉으려면 관악구청 > 서무과 > 경리팀 > 의자 순서로 접근해야 한다. 이를 VBA의 개체모델 접근 방식으로 바꾸면,관악구청.과(서무).팀(경리).의자(1) 과 같은 형식이 된다. MS Office의 개체 모델은 작성자가 이해하는 한 이와 같은 방식으로 작동된다. 파워포인트의 특정 개체에 접근하는 코드를 살펴보자.Ac..