找回密码
 立即注册
搜索

利用VBA批量替换PPT中图例的文字内容

5
回复
859
查看
[复制链接]

5

主题

13

帖子

30

幻币

江湖少侠

Rank: 2

积分
165
QQ
2020-4-14 23:15:38 显示全部楼层 |阅读模式
批量将PPT中图表的文字内容进行替换,自带的查找替换只能替换正文内容
PPT学习论坛
回复

使用道具 举报

4

主题

7

帖子

90

幻币

一流武者

Rank: 3Rank: 3

积分
348
QQ
2020-4-15 01:16:34 显示全部楼层
有大神不?求教
PPT学习论坛
回复 支持 反对

使用道具 举报

3

主题

8

帖子

46

幻币

一流武者

Rank: 3Rank: 3

积分
214
QQ
2020-4-15 02:30:29 显示全部楼层
@weiyingde,老师,求教
PPT学习论坛
回复 支持 反对

使用道具 举报

2

主题

8

帖子

88

幻币

一流武者

Rank: 3Rank: 3

积分
275
QQ
2020-4-15 02:40:18 显示全部楼层
Sub ReplaceText()
    Dim oSld As Slide
    Dim oShp As Shape
    Dim oTxtRng As TextRange
    Dim oTmpRng As TextRange
    Set oSld = Application.ActivePresentation.Slides(1)
    For Each oShp In oSld.Shapes
Set oTxtRng = oShp.TextFrame.TextRange
        Set oTmpRng = oTxtRng.Replace(FindWhat:="华东", _
            Replacewhat:="huadong", WholeWords:=True)
        Do While Not oTmpRng Is Nothing
            Set oTxtRng = oTxtRng.Characters(oTmpRng.Start + oTmpRng.Length, _
                oTxtRng.Length)
            Set oTmpRng = oTxtRng.Replace(FindWhat:="华东", _
                Replacewhat:="huadong", WholeWords:=True)
        Loop
    Next oShp
End Sub
这个运行没实现
PPT学习论坛
回复 支持 反对

使用道具 举报

2

主题

12

帖子

81

幻币

一流武者

Rank: 3Rank: 3

积分
203
QQ
2020-4-15 03:03:56 显示全部楼层
这是样本

PPT学习论坛
回复 支持 反对

使用道具 举报

2

主题

11

帖子

6

幻币

一流武者

Rank: 3Rank: 3

积分
254
QQ
2020-4-15 04:31:53 显示全部楼层
Sub ReplaceText()
    Dim Sd As Slide, Wk As Object, Rng, Rp
    Set Sd = ActivePresentation.Slides(1)
    '图形中的工作簿对象
    Set Wk = Sd.Shapes(3).Chart.ChartData.Workbook
    '工作簿中的工作表数据范围
    Set Rng = Wk.WorkSheets(1).Range("A1:N3")
    '执行替换操作
    Rp = Rng.Replace("北方", "BeiFang", 1)
End Sub
PPT学习论坛
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册