优加 把外框线变成红色 内圈变成黑色
Sub youjia()Dim s As ShapeDim w As DoubleDim h As DoubleActiveDocument.Unit = cdrMillimeterFor Each s In ActivePage.Shapes.Alls.GetSize w, hIf w >= 429 And h >= 304 Then s.Outline.Color.CMYKAssign 0, 100, 100, 0 Else s.Outline.Co...
原创
2021-03-17 21:11:04 ·
125 阅读 ·
0 评论