VBA中是否有选择形状事件？

Dim selectedShape As Shape

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set selectedShape = Nothing
    
    If TypeName(Selection) = "Shape" Then
        Set selectedShape = Selection.ShapeRange.Item(1)
    End If
End Sub

Sub ChangeShapeColor()
    If Not selectedShape Is Nothing Then
        selectedShape.Fill.ForeColor.RGB = RGB(255, 0, 0) ' 将形状的填充颜色更改为红色
    End If
End Sub