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

 
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