Skip to content

Instantly share code, notes, and snippets.

@shoveller

shoveller/setCustomFooter_onPowerPoint.bas

Created September 23, 2012 07:48
Show Gist options
  • Save shoveller/3769243 to your computer and use it in GitHub Desktop.
Save shoveller/3769243 to your computer and use it in GitHub Desktop.
Download ZIP
파워포인트VBA_스닙펫:파워포인트 슬라이드마다 커스터마이즈된 푸터를 삽입
Raw
setCustomFooter_onPowerPoint.bas
'작성일 : 2012.09.11
'작성자 : 서재원
'설명 : 파워포인트용 VBA모듈
' 파워포인트 슬라이드마다 커스터마이즈된 푸터를 삽입한다.
Sub setCustomFooter()
Dim targetSlide As Slide
For Each targetSlide In ActivePresentation.Slides
With targetSlide.HeadersFooters
'visible 특성을 true로 두어야 하는 것이 파워포인트 만의 특성
'http://blogs.msdn.com/b/vsod/archive/2010/01/01/headerfooter-unknown-member-invalid-request-error-while-setting-slide-footer-text-in-powerpoint-2007-via-net.aspx
.Footer.Visible = msoTrue
.Footer.Text = "COPYRIGHT 2012 ME CO.LTD. ALL RIGHTS RESERVED."
.DateAndTime.Visible = msoTrue
.DateAndTime.Format = ppDateTimeMdyy
.SlideNumber.Visible = msoTrue
End With
Next
End Sub
@shoveller
Copy link
Author

gist의 존재를 알고 나서 처음으로 업로드한 스닙펫.
여지껏 에버노트를 써 왔는데, 훨씬 좋은 솔루션인것 같다.
일단 속도가 빠르고, 간단한 위키 또한 작성이 가능하다.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment