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

zhoujieses

批量将PPT中图表的文字内容进行替换，自带的查找替换只能替换正文内容

zhoujieses

有大神不？求教

zhoujieses

@weiyingde，老师，求教

zhoujieses

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
这个运行没实现

zhoujieses

这是样本

lss001

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

补充内容 (2023-2-7 15:13):
Set wk = Sd.Shapes(3).Chart.ChartData.Workbook
应改为→Set wk = Sd.Shapes(3).OLEFormat.Object

ning84

1. Sub del()
   
2.   Dim AddArr, WeathArray, Cc
   
3.         AddArr = Array("兰州", "珠海", "武汉", "北京", "抚远", "漠河", "三沙", "喀什")
   
4.         WeathArray = Array("日出", "日落", "天亮", "天黑", "最高气温", "最低气温", "天气")
   
5.    
   
6.    
   
7.     Dim oPresent As Presentation
   
8.     Dim Sld As Slide
   
9.     Dim ShpRng As ShapeRange
   
10.     Dim Shp As Shape
    
11.     Dim GrpChart 'As Graph.Chart
    
12.          Set oPresent = Application.ActivePresentation
    
13.          
    
14.          
    
15.          
    
16.          With oPresent
    
17.              For Each Sld In .Slides
    
18.                   Sld.Delete
    
19.              Next Sld
    
20.              Stop
    
21.                   
    
22.              For ii = 0 To UBound(WeathArray)
    
23.                    Set Sld = .Slides.Add(Index:=2, Layout:=ppLayoutBlank)
    
24.                    'Sld.Name = WeathArray(ii)
    
25.                    Set GrpChart = Sld.Shapes.AddOLEObject(Left:=120, Top:=110, Width:=480, Height:=320, ClassName:="MSGraph.Chart", Link:=msoFalse)
    
26.                    Debug.Print GrpChart.Name
    
27.               Next ii
    
28.               ''
    
29.               For Each Sld In .Slides
    
30.                     Debug.Print Sld.Name
    
31.               Next Sld
    
32.          End With
    
33.    
    
34. End Sub
    

复制代码

还是遇到定义问题。

ning84

1. Sub ll()
   
2.    Dim Pres As Presentation
   
3.    Dim Sld As Slide
   
4.    Dim Shp As Shape
   
5.         Set Pres = Application.ActivePresentation
   
6.         For Each Sld In Pres.Slides
   
7.             For ii = 1 To Sld.Shapes.Count
   
8.                 Set Shp = Sld.Shapes(ii)
   
9.                     With Shp
   
10.                         Debug.Print Shp.Name, .Left, .Top, .Width, .Height,
    
11.                     End With
    
12.             Next ii
    
13.             Debug.Print
    
14.         Next Sld
    
15. End Sub
    

复制代码