有没有办法在PowerPoint VBA中使用形状的ID来确定它的颜色？

Sub GetShapeColorByID(shapeID As String)
    Dim slide As Slide
    Dim shape As Shape
    
    For Each slide In ActivePresentation.Slides
        For Each shape In slide.Shapes
            If shape.ID = shapeID Then
                Debug.Print "Shape ID: " & shape.ID
                Debug.Print "Fill Foreground Color: " & shape.Fill.ForeColor.RGB
                Debug.Print "Line Foreground Color: " & shape.Line.ForeColor.RGB
                Debug.Print "Fill Background Color: " & shape.Fill.BackColor.RGB
                Debug.Print "Line Background Color: " & shape.Line.BackColor.RGB
                Exit Sub
            End If
        Next shape
    Next slide
    
    Debug.Print "Shape with ID " & shapeID & " not found."
End Sub