각 슬라이드에 한글자씩 가득차게 분할 출력
주어진 문자열을 한글자씩 각 슬라이드에 가득차게 분할하는 매크로를 만들어보았습니다. 첨부파일 Alt-F11 눌러보면 str="파워포인트지식인" 에서 원하시는 문자열로 바꾸시고 F5로 매크로 실행해보세요. - msoTextEffect10 값을 바꾸면 효과가 바뀝니다. - .Font.Color.RGB = rgbBlue ' rgb(255,125,255) 여기서 Font 색깔도 바꿀 수 있습니다. - 소스 아래쪽에 3차원 효과를 원하지 않으면 주석처리하세요. 매크로는 아래와 같습니다. Sub 가득차게글자분할() Dim pres As Presentation Dim sld As Slide Dim shp As Shape Dim str As String, s As String Dim SW As Single, ..
PPT+VBA
2019. 7. 2. 10:13
최근댓글