vba 获取PPT幻灯片中的所有标题的代码实用指南
平时做技术实践时，很多问题不是概念不会，而是细节没串起来。拿“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
您可能感兴趣的文章:
- VBA 编程基础
- excel vba 高亮显示当前行代码
- VBA 浏览文件夹对话框调用的几种方法
- Excel VBA连接并操作Oracle
- VBA中连接SQLSERVER数据库例子
- VBA解决Windows空当接龙的617局
-
09.16
wesher：实践指南
-
09.16
learn：实践指南
-
09.16
basecs-series：实践指南
-
09.16
ha-wyzeapi：实践指南
-
09.16
statsd_exporter：实践指南
-
09.16
kiwiirc：实践指南
-
-
-
-
- 咪咕快游官网入口网页版网址
- 08.31
-
- 哪个节气标志着仲春的开始
- 08.31
-
- 《逆战：未来》精绝兽神武器搭配攻略
- 08.31
-
-
下载
- |
-
-
下载
- 《行尸走肉第一章》免安装中文汉化硬盘版下载
- 单机|436 MB
- 一款以动作冒险为主题的游戏
-
-
下载
- 《街头霸王X铁拳》免安装中文汉化硬盘版下载
- 单机|111MB
- 一款非常好玩的格斗游戏
-
-
下载
- |
-
-
下载
- 《暗黑破坏神3》免安装繁体中文正式版下载
- 单机|7630 MB
- 一款以角色扮演为主题的游戏
-
-
下载
- 《马克思佩恩3》免安装硬盘版下载
- 单机|27033 MB
- 一款以第三人称射击为主题的游戏