excel vba:选择最近创建的形状

Dim recentShape As Shape

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1") '替换为实际的工作表名称

Dim shape As Shape
Dim recentTime As Date
recentTime = DateSerial(1900, 1, 1) '将recentTime初始化为一个较早的日期

For Each shape In ws.Shapes
    If shape.Type <> msoFormControl Then '排除掉表单控件
        If shape.CreatedDate > recentTime Then
            recentTime = shape.CreatedDate
            Set recentShape = shape
        End If
    End If
Next shape

If Not recentShape Is Nothing Then
    recentShape.Fill.ForeColor.RGB = RGB(255, 0, 0)
End If