For Each sld In objPPT.ActivePresentation.Slides
            For Each shp In sld.Shapes
                If shp.HasTextFrame Then
                    If shp.TextFrame.HasText Then
                        Set txtrng = shp.TextFrame.TextRange
                        Set rF = ThisWorkbook.Worksheets("123").Range("A2:A132").Find(Trim(txtrng.Text), , , xlWhole)
                        If Not rF Is Nothing Then
                            shp.TextFrame.TextRange = ThisWorkbook.Worksheets("123").Cells(rF.Row, 2)
                        End If
                    End If
                End If
            Next shp
    Next sld

'необходимо подключить библиотеку Microsoft PowerPoint 16.0 Object Library

Sub test()

Dim r As Range, r1 As Range

Dim nm As Name

Dim wb As Workbook





Dim ppt As PowerPoint.Application

Dim sl As PowerPoint.Slide

Dim sh As PowerPoint.Shape

Dim cht As PowerPoint.Chart 'Chart

Dim chtData As PowerPoint.ChartData

Dim cTable As Excel.ListObject





Set wb = ThisWorkbook



'здесь задаем переменным значения приложения powerpoint

Set ppt = GetObject(, "powerpoint.application")

' и первого слайда, на котором расположены диаграммы



Set sl = ppt.Presentations(1).Slides(1)



'перебираем все именованные диапазоны на листе ексель - источнике данных

For Each nm In ThisWorkbook.Names

Set sh = sl.Shapes(nm.Name) ' - на слайде выбираем фигуру, имя которой соответствует именованному диапазону диаграммы

'здесь задаем переменным параметры диаграммы расположенной на слайде

Set cht = sh.Chart ' диаграмма встроенная в фигуру sh

Set chtData = cht.ChartData 'диапазон данных диаграммы

chtData.Activate 'активизация окна с листом ексель диаграммы



With chtData

Set r = chtData.Workbook.Worksheets(1).Cells(1, 1) ' первая ячейка на листе диаграммы

Set r = r.CurrentRegion ' расширяем первую ячейку на весь диапазон данных

r.Clear ' очищаем диапазон

wb.Worksheets(1).Range(nm).CurrentRegion.Copy ' копируем диапазон данных с листа ексель - источника данных



r.PasteSpecial xlPasteAll ' вставляем в диапазон данные с листа ексель - источника данных

Set r = r.CurrentRegion 'расширяем диапазон на листе ексель встройнной диаграммы

End With



cht.SetSourceData Source:="=" & Chr(39) & r.Parent.Name & Chr(39) & "!" & r.Address ' меняем диапазон данных встроенной в слайд диаграммы



chtData.Workbook.Close ' закрываем лист ексель встроенной диаграммы

Next

End Sub

Sub test()
    Dim r As Excel.Range, r1 As Excel.Range
    Dim ws As Worksheet
    Dim i As Integer, j As Integer
    Dim doc As Word.Document
    Dim wrd As Word.Application
    Dim str As String
    Dim iSh As Word.Shape
    Dim crt As Word.Chart    
    
    Set wrd = GetObject(, "word.application")
    wrd.Visible = True
    
    Set doc = wrd.Documents(1)
    Set ws = ActiveSheet
    Set r = ws.UsedRange
    For i = 2 To r.Rows.Count
        
        str = ws.Cells(i, 1)
        For Each iSh In doc.Shapes
            If CStr(iSh.AlternativeText) = str Then
                Set crt = iSh.Chart
                With crt.ChartData.Workbook
                    Set r1 = .Sheets(1).Cells(1, 1).CurrentRegion
                    Set r1 = r1.Offset(1, 1).Resize(r1.Rows.Count - 1, 1)
                    For j = 2 To 7
                        r1.Cells(j - 1) = ws.Cells(i, j) / 100
                    Next j
                    
                End With
            End If
        Next
    Next i
    
End Sub

If ActiveSheet.FilterMode = True Then
ActiveSheet.ShowAllData
End If

Sub ОформитьТаблицу()
    Dim doc As Document
    Dim tb As Table
    Dim i As Integer, j As Integer
    
    Set doc = ActiveDocument
    Set tb = Selection.Tables(1)
    tb.Rows.SetLeftIndent LeftIndent:=14, RulerStyle:=wdAdjustNone
    For i = 1 To tb.Rows.Count
        
        If InStr(tb.Rows(i).Cells(1).Range, "Показатель") > 0 Then
            For j = 2 To tb.Columns.Count
                With tb.Rows(i).Cells(j)
                    .LeftPadding = 0
                    .RightPadding = 0
                End With
            Next j
        End If
    Next i
   
    With tb
        .Columns(1).Width = 70.95
        .Columns(2).Width = 39.25
        .Columns(3).Width = 43.8
        .Columns(4).Width = 28.35
        .Columns(5).Width = 37.45
        .Columns(6).Width = 34.5
        .Columns(7).Width = 37.3
        .Columns(8).Width = 37.15
        .Columns(9).Width = 42.35
        .Columns(10).Width = 47.1
        .Columns(11).Width = 42.55
        .Columns(12).Width = 38.3
        .Columns(13).Width = 44.7
        .Columns(14).Width = 28.3
    End With
End Sub