파워포인트 파일에서 모든 페이지의 폰트를 한꺼번에 바꾸는 매크로 VBA

파워포인트를 사용하다 보면 가끔씩 모든 페이지의 폰트를 바꿔줘야 하는 일이 생긴다. 아니면 10페이지부터 20페이지까지 폰트를 바꾼다던지... 이 경우 몇 페이지면 상관이 없지만, 수십 페이지의 경우 시간이 오래 걸린다. 일일이 페이지를 넘겨가면, Ctrl-A하고 폰트를 변경하는 지저분한 일을 해야 한다. 위의 매크로를 넣으면 한꺼번에 모든 페이지를 찾아가서 폰트를 변경해 준다. 아래는 HY엽서L 이라는 폰트로 모두 바꾸는 소스인데, 이 부분만 맑은고딕이나 고딕 등 자기가 원하는 폰트로 변경해서 진행하면 됩니다. 아래는 1페이지부터 마지막 페이지까지 진행되는 데, 원하는 페이지만 넣어서 루핑을 돌리도록 수정해서 사용해도 된다. Sub aa01() Dim pages As Integer With ActivePresentation ' MsgBox (.Slides.Count) ' 128 pages = .Slides.Count With .PageSetup '슬라이드 크기 구하기 sw = .S...

원문링크 : 파워포인트 파일에서 모든 페이지의 폰트를 한꺼번에 바꾸는 매크로 VBA