Dim objPP As Object
Dim objPPFile As Object

Set objPP = CreateObject("PowerPoint.Application")
objPP.Visible = True

Path = "  "

Set objPPFile = objPP.Presentations.Open("C:\путь\" presentation.pptm")          
Application.EnableEvents = False
objPP.Run "presentation.pptm!Daily.Dates_Copies_PDF"                    '

Application.EnableEvents = True
'objPPFile.Close
Set objPPFile = Nothing
Set objPP = Nothing

End Sub

...
' Для понедельника и вторника

If Weekday(Date) = 2 Or Weekday(Date) = 3 Or Weekday(Date) = 4 Then
    a = Format(Date - 5, "DD.MM.YYYY")
    b = Format(Date - 5, "YYYYMMDD")
    c = Format(Date, "DD.MM.YYYY")
    d = Format(Date - 5, "YYMMDD")
    e = Format(Date - 5, "YYYY")
    f = Format(Date - 5, "YYYY_MM")
    g = Format(Date - 5, "MM")
    Z = "год"

' Для среды, четверга и пятницы

Else
    a = Format(Date - 3, "DD.MM.YYYY")
    b = Format(Date - 3, "YYYYMMDD")
    c = Format(Date, "DD.MM.YYYY")
    d = Format(Date - 3, "YYMMDD")
    e = Format(Date - 3, "YYYY")
    f = Format(Date - 3, "YYYY_MM")
    g = Format(Date - 3, "MM")
    Z = "год"

End If

...

objPPFile.Slides(1).Shapes("DateExcel").TextFrame.TextRange.Text = Sheets(1).Range("A1").Value

a = Format(CDate(Slide1.Shapes("DateExcel").TextFrame.TextRange.Text) - 5, "DD.MM.YYYY")

Sub Run_power_point()

'даем ссылку на даты внесенные в конкретную ячейку (даты использую формата YYYYMMDD)
Windows("book.xlsm").Activate
Sheets("sheet1").Select
old_date = Range("AE43").Value
new_date = Range("AE39").Value

Set objPP = CreateObject("PowerPoint.Application")

objPP.Visible = True

Path = "  "

Set objPPFile = objPP.Presentations.Open("N:\folder\Box\08_folder\" & new_date & "\" & old_date & "_presentation_daily.pptm")         

Application.EnableEvents = False

'запускаю в открытой презе макрос "Dates_Copies_PDF" прописанный в модуле под названием "Daily"
objPP.Run old_date & "_presentation_daily.pptm!Daily.Dates_Copies_PDF"                    

Application.EnableEvents = True

Set objPPFile = Nothing

Set objPP = Nothing

End Sub

Sub Dates_Copies_PDF()

Dim excelApplication As Object
Set excelApplication = GetObject(, "Excel.Application")
excelApplication.Visible = True

Dim a As String
Dim b As String

'получаем наши даты из Excel
a = excelApplication.ActiveWorkbook.Sheets("sheet1").Range("AF39").Value  ' DD.MM.YYYY
b = excelApplication.ActiveWorkbook.Sheets("sheet1").Range("AE39").Value   ' YYYYMMDD

Set excelApplication = Nothing

'Используем полученные переменные для работы в Power Point

'Обновление дат на первом слайде
(для того чтобы узнать номер формы:
Кликаем на форму - формат - область выделения(область навигации) - справа будет список всех форм, нумерация ведется СНИЗУ)

ActivePresentation.Slides(1).Shapes(3).TextFrame.TextRange.Lines(4).Text = "Отчёт на " & a
ActivePresentation.Slides(1).Shapes(4).TextFrame.TextRange.Lines(5).Text = "Дата подготовки отчёта: " & b

'Добавляем два слайда из другой презы

    On Error GoTo 0
    On Error Resume Next
    Presentations.Open fileName:="N:\box\" & a & "_" & b & "\" & a & "_ нарушения.pptx", ReadOnly:=msoFalse

'прописываем открыть папку если другая преза не найдена

    If Err.Number <> 0 Then
        MsgBox ("Преза не найдена – открою папку в которой она должна лежать")
        Call Shell("explorer.exe" & " " & "N:\box\" & a & "_" & b & "\", vbNormalFocus)
        Err.Clear

    Else
        ActivePresentation.Slides.Range(Array(1, 2)).Copy 
‘если нужно забрать только 1 слайд то заменить эту строку на ActivePresentation.Slides(1).Copy
        

With Application.Presentations(a & "_нарушения.pptx")
         .Saved = True
         .Close
        End With

        ActiveWindow.View.Paste

'       передвигаем первый слайд на нужное место
        ActivePresentation.Slides(2).MoveTo toPos:=8

'       передвигаем второй слайд на нужное место (т.к. первый уже "уехал" то второй попадает на второе место)
        ActivePresentation.Slides(2).MoveTo toPos:=9

     End If

' Сохраняем обновленную презентацию под новым именем

ActivePresentation.SaveAs ActivePresentation.Path & "\" & b & "_presentation_daily" & ".pptm"

End Sub