전체 글 106

파워포인트 그림 크기 일괄 변경 매크로 #1

매크로 설명 파워포인트 이미지 속성 일괄 변경 매크로이다.모든 슬라이드의 삽입 이미지만 따로 크기를 변경해준다.그림의 가로/세로 비율이 중요하다면 LockAspectRatio 속성을 msoTrue로 잡아주어야 한다.매크로 실행 동영상(실행방법 포함) VBA Code Option Explicit Dim i As Long Dim pic As Shape Dim last_slide As Slide Sub pic_change() For i = 1 To ActivePresentation.Slides.Count For Each pic In ActivePresentation.Slides(i).Shapes If pic.Type = msoPicture Then '그림 파일이면 With pic ..

파워포인트 슬라이드 번호 삽입 매크로

슬라이드 바닥글을 활용하여 페이지번호를 삽입하는 기능이 있지만, 첫째 슬라이드가 아닌 임의의 슬라이드에서 임의의 번호로 시작하는 기능은 없다. 더욱이 슬라이드 마스터가 익숙하지 않은 사람이라면 헷갈리기 쉽다. 이 매크로는 슬라이드 페이지 번호를 자동으로 삽입해주는 매크로이다. 번호의 서식은 자유로이 변경할 수 있고, 빈 슬라이드를 간지로 쓰는 경우에는 레이아웃 인덱스를 지정해서 번호가 붙는것을 방지할 수 있다. VBA Code Option Explicit Dim i As Long, cnt As Long Dim sld_height As Long, sld_width As Long Dim mySlide As Slide, myShp As Shape Dim page_style As String Sub pptx_p..

글꼴(폰트)이 설치된 슬라이드 찾기 매크로

S Y N O P S I S #VBA로 폰트 찾기 간혹 PT 작업 중에 저장하면 폰트 때문에 저장할 수 없을 때가 있다. 슬라이드가 많아지면 보통 슬라이드를 복제해서 쓰는 경우가 많기 때문에 내가 사용한 글꼴이 어떤 슬라이드에 있는지 일일이 찾아야 한다. 자체적으로 글꼴을 일괄적으로 변환해주는 기능이 있는데 글꼴이 설치되어 있어야 가능하다. 아래 매크로는 '특정 글꼴이 사용되고 있는 슬라이드를 찾고 싶은 경우'에 사용한다. 글꼴을 입력하면 첫번째부터 마지막 슬라이드까지 내가 검색한 글꼴이 사용되는 슬라이드 번호를 알려주고, 해당 위치로 이동한다. VBA Code Option Explicit Dim myShp As Shape Dim slide_num As Long Dim myFont As Variant D..

전주 한옥마을(2017년 9월 9일)

그 사람 많은 한옥마을에서 운 좋게도 찍은 단독샷.한복 대여는 1인당 1만 5천(2시간)이었던(가물...) 듯.한복을 대여해주는 가게가 몇 군데 있다. #1 처음 보는 한복 대여가게에 가서 빌리지 말고, #2 지나다니는 사람들을 유심히 살펴보고(같은 한복 고르지 마시길), #3 여자친구가 맘에들어하는 한복을 빌릴 것. 사람이 너무 많아서 사진 찍기가 장난아니게 힘들다.그런다고 사람이 없는 곳을 막 찾아다니기엔 아까운 시간이다.그냥 아무 골목에 들어가서 찍어도 괜찮은 곳이다. 전동성당..? 한옥마을 입구에 산(山) 만 한 떡갈비 집이 있다.요런 데를 별로 좋아하지 않는데,떡갈비 맛보다도, 밑반찬 맛이 일품이다.간이 너무 잘 되어 있다.'기와'라는 식당이다.

그날 2017.10.10