vba 獲取PPT幻燈片中的所有標(biāo)題的代碼
更新時間：2010年08月21日 15:19:29 作者：
有時候需要獲取PPT幻燈片中的所有標(biāo)題，如果手工的復(fù)制肯定很慢，那么可以用vba批量獲取，提高工作效率。
復(fù)制代碼 代碼如下:
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)
'獲取圖形對象
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)文章
用vba實現(xiàn)將記錄集輸出到Excel模板...2007-02-02
在數(shù)據(jù)環(huán)境設(shè)計器中也可以創(chuàng)建一個合計字段，即對來自部分的數(shù)據(jù)進(jìn)行合計的字段。2009-07-07
本文主要介紹了VBA中Excel宏的介紹及應(yīng)用，文中通過示例代碼介紹的非常詳細(xì)，對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2023-05-05
本文主要介紹了Excel·VBA合并工作簿的實現(xiàn)示例，文中通過示例代碼介紹的非常詳細(xì)，對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2023-01-01
用條件格式設(shè)置高亮顯示當(dāng)前行，難的是如何確定當(dāng)前行。用VBA就很簡單，鼠標(biāo)右擊工作表標(biāo)簽，選擇“查看代碼”，將下面的代碼粘貼到VBE窗口中2009-07-07
如果希望限制工作表中滾動的區(qū)域，可以通過設(shè)置WorkSheet對象的ScrollArea屬性來實現(xiàn)。2009-07-07
本文給大家分享的是使用VBA解決Windows空當(dāng)接龍的617局的方法和思路，有需要的小伙伴可以參考下。2015-09-09
VBA 瀏覽文件夾對話框調(diào)用實現(xiàn)代碼。大家可以根據(jù)需要選擇。2009-07-07
當(dāng)編輯框內(nèi)容改變 對應(yīng)的單元格也隨著改變vba代碼
當(dāng)編輯框內(nèi)容改變 對應(yīng)的單元格也隨著改變vba代碼2009-07-07
今天遇到一個excel小工具感覺不錯，想研究研究代碼，竟然有密碼，我就不淡定了。網(wǎng)上找了找代碼，改了一下就OK了。接下來通過本文給大家分享兩種方式破解VBA工程加密，需要的朋友參考下吧2021-12-12