VBA 코드ppt용 페이지 번호 진행률 막대 추가

1707 단어 pptVBA
VBA를 사용하여 PPT의 맨 아래에 진도표를 추가하여 전체 길이까지 얼마나 진행되는지 보기 편리하고 선택한 페이지에 따라 진도표의 길이도 다르다.
알림: 진도표는 재생된 슬라이드 장수를 나타낼 뿐 시간을 재는 데 사용되지 않습니다.
진행률 막대는 다음과 같이 추가됩니다.
PPT를 열고 Alt+F11을 누르고 VBE 편집기를 열고 모듈을 삽입하고 아래 코드를 복사한 다음 도구 모음의 '실행' 단추를 누르십시오.
Sub AddProgressBar()
    On Error Resume Next
        With ActivePresentation
              For X = 2 To .Slides.Count - 1 '          
              .Slides(X).Shapes("PB").Delete
              Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _
              0, .PageSetup.SlideHeight - 6, _
              X * .PageSetup.SlideWidth / .Slides.Count, 5) '   
              s.Fill.ForeColor.RGB = RGB(246, 202, 5) '    
              s.Name = "PB"
              Next X:
        End With
End Sub

좋은 웹페이지 즐겨찾기