각 슬라이드에 한글자씩 가득차게 분할 출력

주어진 문자열을 한글자씩

각 슬라이드에 가득차게 분할하는 매크로를 만들어보았습니다.

 

 

첨부파일 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, SH As Single
    Dim i As Integer
    Dim fsize As Single
    
    '문구 수정
    str = "파워포인트지식인"
    
    Set pres = ActivePresentation
    With pres.PageSetup
        SW = .SlideWidth: SH = .SlideHeight
    End With
    
    fsize = 200 '폰트크기 시작 사이즈 , max=4000
    For i = 1 To Len(str)
        If i = 1 Then
            Set sld = pres.Slides(1)
        Else
            Set sld = pres.Slides.Add(pres.Slides.Count + 1, ppLayoutBlank)
        End If
        
        s = Mid(str, i, 1)
        Set shp = sld.Shapes.AddTextEffect(msoTextEffect10, s, "맑은 고딕", fsize, msoTrue, msoFalse, 0, 0)
        shp.Name = s
        With shp.TextFrame.TextRange
            .Font.Color.RGB = rgbBlue   ' rgb(255,125,255)
            .Font.Bold = msoTrue
            '.Font.Shadow = msoTrue
            '1슬라이드에서 슬라이드 가로폭크기로 최대한 폰트를 늘림
            If i = 1 Then
                While shp.Width < SW
                    .Font.Size = .Font.Size + 5
                Wend
                fsize = .Font.Size
            End If
            
        End With
        '3차원 돌리기
        With shp.TextFrame2
            '.WordArtFormat = msoTextEffect10
            .ThreeD.Depth = 100
            .ThreeD.RotationX = -10
            .ThreeD.RotationY = 10
            '.ThreeD.BevelTopDepth = 100
            '.ThreeD.BevelTopInset = 100
            '.ThreeD.BevelBottomInset = 100
            '.ThreeD.BevelBottomDepth = 100
        End With
        
        '슬라이드 가운데로
        shp.Left = SW / 2 - shp.Width / 2
        shp.Top = SH / 2 - shp.Height / 2
    Next i
    

End Sub

참고로 msoTextEffect 미리설정된 효과는 아래와 같습니다.

 

 

글자분할인쇄1.pptm

0.03MB

 

지식인링크:

https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102&docId=330291802&page=1#answer1