DataFile = ActiveWorkbook.Worksheets(2)
Set MapFrame = Plot.Shapes.AddClassedPostMap(DataFile)

Dim MapFrame As Object

Dim DataFile As Workbook
Set DataFile = ActiveWorkbook

Set MapFrame = Shapes.AddClassedPostMap(DataFile)

Dim SurferApp As Object

'установка соответствия между переменной SurferApp и программой Surfer:

Set SurferApp = CreateObject("Surfer.Application")
SurferApp.Visible = True

Dim Plot As Object
Set Plot = SurferApp.Documents.Add(1)

Dim Shapes As Object
Set Shapes = Plot.Shapes

Dim MapFrame As Object
Set MapFrame = Shapes.AddClassedPostMap(DataFileName:="X:\EOL_report_R\test.xlsx")

Dim ClassedPostLayer As Object
Set ClassedPostLayer = MapFrame.Overlays(1)

Sub Save()
Dim MyFile As String
  Dim oPres As Presentation
  Const MyFolder = "X:\EOL_report_R\pres"
        
         MyFile = Dir(MyFolder & "*.pptx")

      Do While MyFile <> ""
           Set oPres = Presentation.Open(FileName:=MyFolder & MyFile, UpdateLinks:=0)
            ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "\" & ActivePresentation.Name & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint
             ActivePresentation.Close
      MyFile = Dir
      Loop
  
End Sub

Dim PPSlide As PowerPoint.Slide
    Dim Shape As Object
    Dim RangeName1 As String
    Dim wb1 As Workbook
    Dim ws1 As Worksheet

    Set wb1 = Workbooks.Open(strExcel)
    Set ws1 = wb1.Sheets(3)
    wb1.Sheets(3).Select
    RangeName1 = "A1:O25"
    Worksheets(3).Range(RangeName1).Copy
    
    PowerPoint.ActivePresentation.Slides(2).Select
    Set PPSlide = ActivePresentation.Slides(2)
    Set Shape = PPSlide.Shapes.PasteSpecial(DataType:=ppPasteObject, Link:=msoFalse)

  With Shape

     .Top = 10
    .Height = 10
    .Left = 10
    .Width = 100

    End With