'Если фигура является таблицей
                 If iSlide.Shapes(i).HasTable = msoTrue Then
                     '!!!!!!!!Вставить в таблицу значения из буфера обмена!!!!!!!!!!!
                     Dim pTable As Table, iRow As Long, iCol As Long
                     Dim vData As Variant
                     Set pTable = iSlide.Shapes(i).Table
                     vData = workB.sheets(1).Range("B2:F9").Value
                     For iRow = 1 To UBound(vData)
                         For iCol = 1 To UBound(vData, 2)
                             pTable.Cell(iRow, iCol).Shape.TextFrame.TextRange.Text = vData(iRow, iCol)
                         Next
                     Next
                     'iSlide.Shapes.PasteSpecial ppPasteOLEObject
                     Exit For
                 End If