 
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 
'循環(huán)每頁幻燈 
For i = 1 To oPres.Slides.Count 
Set oSlide = oPres.Slides.Item(i) 
'獲取圖形對(duì)象 
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 
'如果符合格式: 根據(jù)情況設(shè)定, 此處前三位構(gòu)成為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 

您可能感興趣的文章:

相關(guān)文章

當(dāng)編輯框內(nèi)容改變對(duì)應(yīng)的單元格也隨著改變vba代碼
當(dāng)編輯框內(nèi)容改變對(duì)應(yīng)的單元格也隨著改變vba代碼
2009-07-07
Excel·VBA合并工作簿的實(shí)現(xiàn)示例
本文主要介紹了Excel·VBA合并工作簿的實(shí)現(xiàn)示例，文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧
2023-01-01
VBA 編程基礎(chǔ)
好多朋友想學(xué)習(xí)vba但相關(guān)資料不是很多，其實(shí)就是利用了vb的語法，結(jié)合office
2009-07-07
excel vba 限制工作表的滾動(dòng)區(qū)域代碼
如果希望限制工作表中滾動(dòng)的區(qū)域，可以通過設(shè)置WorkSheet對(duì)象的ScrollArea屬性來實(shí)現(xiàn)。
2009-07-07
關(guān)于vba代碼運(yùn)行時(shí)錯(cuò)誤1004?應(yīng)用程序定義或?qū)ο蠖x錯(cuò)誤問題
這篇文章主要介紹了vba代碼運(yùn)行時(shí)錯(cuò)誤1004?應(yīng)用程序定義或?qū)ο蠖x錯(cuò)誤,經(jīng)過一系列問題調(diào)查發(fā)現(xiàn)是工作表中數(shù)據(jù)存在異常，需要的朋友可以參考下
2022-10-10
向數(shù)據(jù)報(bào)表添加一個(gè)合計(jì)字段
在數(shù)據(jù)環(huán)境設(shè)計(jì)器中也可以創(chuàng)建一個(gè)合計(jì)字段，即對(duì)來自部分的數(shù)據(jù)進(jìn)行合計(jì)的字段。
2009-07-07
Excel?VBA按列拆分工作表和工作簿的實(shí)現(xiàn)
表格拆分是常見的數(shù)據(jù)處理，本文主要介紹了Excel?VBA按列拆分工作表和工作簿的實(shí)現(xiàn)，文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧
2023-01-01
vba將excel按照某一列拆分成多個(gè)文件
本文主要介紹了vba將excel按照某一列拆分成多個(gè)文件，文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧<BR>
2023-01-01
VBA工程加密PJ方式(兩種)
今天遇到一個(gè)excel小工具感覺不錯(cuò)，想研究研究代碼，竟然有密碼，我就不淡定了。網(wǎng)上找了找代碼，改了一下就OK了。接下來通過本文給大家分享兩種方式破解VBA工程加密，需要的朋友參考下吧
2021-12-12
excel vba 高亮顯示當(dāng)前行代碼
用條件格式設(shè)置高亮顯示當(dāng)前行，難的是如何確定當(dāng)前行。用VBA就很簡(jiǎn)單，鼠標(biāo)右擊工作表標(biāo)簽，選擇“查看代碼”，將下面的代碼粘貼到VBE窗口中
2009-07-07