VBA код для изменения формы в PPT не работает

Question

Мне нужно изменить цвет фигуры в ppt-файле в соответствии со значением excel.Я пробовал следующий код, но он не работает.Логика такова:

Если я анализирую продукт A (ячейка), я хотел бы знать, был ли он прибыльным (cell.offset (0,39) = 1) или нет (= 0).Если это было выгодно, мне нужно было нарисовать определенную форму (которая относится к этому продукту) зеленым цветом в презентации PPT.

Не могли бы вы помочь мне с этим?

Sub UpdateShapes ()

'Setting ranges and variables
Dim cell, RangeID As Range
    Set RangeID = Sheets("Teste").Range("d1:d20")

' Get a PowerPoint instance.
Dim ppapp As Object
    Set ppapp = New PowerPoint.Application

' PowerPoint window visible
Dim pres As PowerPoint.Presentation
    strPpPath = ThisWorkbook.Path
    strPpName = strPpPath & "\" & "Trial01_Rob.pptx" 'Subtituir pelo nome do seu ppt
    Set pres = ppapp.Presentations.Open( _
        Filename:=strPpName, Untitled:=msoFalse)

        For Each cell In RangeID

            If cell.Offset(0, 39).Value = 1 Then

                    pres.slides(1).Shapes(cell).Fill.ForeColor.RGB = RGB(231, 28, 87)

                    Else

                    pres.slides(1).Shapes(cell).Fill.ForeColor.RGB = RGB(0, 28, 87)

            End If
         Next
End Sub