我需要一个VBA代码来将形状(例如:向下箭头/向上箭头)放置在电源点幻灯片中表格的特定单元格(基于单元格值)的顶部

Sub AddArrowsToTable()
    Dim pptSlide As Slide
    Dim pptShape As Shape
    Dim tbl As Table
    Dim rng As Range
    Dim cell As Range
    Dim arrowUp As String
    Dim arrowDown As String
    
    ' 设置箭头的类型
    arrowUp = msoShapeUpArrow
    arrowDown = msoShapeDownArrow
    
    ' 获取当前选中的幻灯片
    Set pptSlide = ActiveWindow.View.Slide
    
    ' 遍历幻灯片中的所有表格
    For Each tbl In pptSlide.Shapes.Range(Array("Table")).Table
    
        ' 遍历表格中的所有单元格
        For Each cell In tbl.Range.Cells
        
            ' 检查单元格的值并添加相应的箭头
            If cell.Text = "上升" Then
                ' 在单元格上方添加向上箭头
                Set pptShape = pptSlide.Shapes.AddShape(msoShapeUpArrow, _
                                                      cell.Left, _
                                                      cell.Top - 20, _
                                                      20, _
                                                      20)
            ElseIf cell.Text = "下降" Then
                ' 在单元格上方添加向下箭头
                Set pptShape = pptSlide.Shapes.AddShape(msoShapeDownArrow, _
                                                      cell.Left, _
                                                      cell.Top - 20, _
                                                      20, _
                                                      20)
            End If
            
        Next cell
    Next tbl
End Sub