vba 获取PPT幻灯片中的所有标题的代码
更新时间:2010年08月21日 15:19:29 作者:
有时候需要获取PPT幻灯片中的所有标题,如果手工的复制肯定很慢,那么可以用vba批量获取,提高工作效率。
(福利推荐:【腾讯云】服务器最新限时优惠活动,云服务器1核2G仅99元/年、2核4G仅768元/3年,立即抢购>>>:9i0i.cn/qcloud)
(福利推荐:你还在原价购买阿里云服务器?现在阿里云0.8折限时抢购活动来啦!4核8G企业云服务器仅2998元/3年,立即抢购>>>:9i0i.cn/aliyun)
复制代码 代码如下:
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
相关文章
VBA处理数据与Python Pandas处理数据案例比较分析
这篇文章主要介绍了VBA处理数据与Python Pandas处理数据案例比较,本文通过实例代码给大家介绍的非常详细,具有一定的参考借鉴价值,需要的朋友可以参考下2020-04-04
最新评论