求助，vba批量加框怎么让外框和对象群组

小印

Sub ÅúÁ¿¼Ó¿ò()
    Dim S As Shape, s1 As Shape, sr As ShapeRange, s2 As ShapeRange
    ActiveDocument.Unit = CDRMillimeter
    Dim sx#, sy#, sw#, sh#
    Set sr = ActiveSelection.Shapes.All 'Ñ¡ÖеÄËùÓжÔÏó¸÷¼ÓÒ»¸ö¿ò
    For Each S In sr
      S.GetBoundingBox sx, sy, sw, sh
      Set s1 = ActiveLayer.CreateRectangle2(sx - 3, sy - 3, sw + 6, sh + 6)
            s1.Fill.ApplyNoFill
            s1.Outline.SetProperties 0.076
            s1.Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
            s1.Outline.SetNoOutline
Next S
End Sub

好利伯

https://www.52cnp.com/thread-18371-1-1.html

w2545

Set s2 = ActivePage.SelectShapesFromRectangle(s1.LeftX, s1.TopY, s1.RightX , s1.BottomY , True)         
s2.group


试试这个行不

zg275822558

小精灵就行 有批量