vba PPT 슬라이드 의 모든 제목 코드 가 져 오기

1055 단어 vbaPPT슬라이드
 
Private Sub CommandButton1_Click()
Me.Enabled = False
getTitles
Me.Enabled = True
End Sub


Sub getTitles()
On Error Resume Next
Dim oPres As Presentation
Set oPres = Application.ActivePresentation
Dim oSlide As Slide
Dim oShape As Shape
Dim tr As TextRange
Dim sText As String
Dim i As Long, j As Long
'
For i = 1 To oPres.Slides.Count
Set oSlide = oPres.Slides.Item(i)
'
For j = 1 To oSlide.Shapes.Count
Set oShape = oSlide.Shapes.Item(j)
'
If oShape.TextFrame.HasText = msoTrue Then
Set tr = oShape.TextFrame.TextRange
sText = tr.Text
' : , x.y
If IsNumeric(Left(sText, 3)) Then
'MsgBox sText
TextBox1.SelStart = 65535
TextBox1.SelText = sText & vbCrLf
End If
Set tr = Nothing
End If
Set oShape = Nothing
Next
Set oSlide = Nothing
Next
Set oPres = Nothing
End Sub

좋은 웹페이지 즐겨찾기