优加 把外框线变成红色 内圈变成黑色

Sub youjia()
Dim s As Shape
Dim w As Double
Dim h As Double
ActiveDocument.Unit = cdrMillimeter

For Each s In ActivePage.Shapes.All
s.GetSize w, h
If w >= 429 And h >= 304 Then
     s.Outline.Color.CMYKAssign 0, 100, 100, 0
    Else
    s.Outline.Color.CMYKAssign 0, 0, 0, 100
End If
Next

ActivePage.Shapes.All.CreateSelection
Dim s1 As Shape
Set s1 = ActiveSelection.Group
s1.Rotate 90
Dim grp1 As ShapeRange
Set grp1 = s1.UngroupAllEx
End Sub