Grouped Shapes Not Anchoring to Original Paragraph in Word VBA

ADAL · #1 12-12-2024, 03:32 AM

Hi everyone,

I have a VBA macro in Word that ungroups shapes, adjusts their positions and sizes, and then groups them back together. The problem is that after regrouping the shapes, the new group doesn't anchor to the original paragraph but instead anchors to another location in the document.

Here's my code:

Code:

Sub MACRO5()
    Dim shpGroup, C, L, R As Shape
    signon = Selection.Paragraphs(1).Style

    For Each para In ActiveDocument.Paragraphs
        para.Range.Select
        If para.Range.ShapeRange.Count > 0 Then
            If para.Style = signon And para.Range.ShapeRange(1).Name = "A" Then
                Set MYRANGE = para.Range
                MYRANGE.Select
                Selection.HomeKey
                PRINCIPIO = Selection.Information(wdHorizontalPositionRelativeToTextBoundary)
                Selection.EndKey
                FIN = Selection.Information(wdHorizontalPositionRelativeToTextBoundary)
                TAMANO = PRINCIPIO - FIN
                para.Range.ShapeRange(1).Select
                Set shpGroup = Selection.ShapeRange

                On Error GoTo iGroup
                shpGroup.Ungroup

                For Each shp In shpGroup
                    If shp.Name = "1" Then Set L = shp
                    If shp.Name = "2" Then Set C = shp
                    If shp.Name = "3" Then Set R = shp
                Next

                C.LockAspectRatio = msoFalse
                C.Width = TAMANO
                C.Left = C.Left - ADDITION_IN_EACH_SIDE
                L.Left = C.Left - L.Width
                R.Left = C.Left + C.Width

iGroup:
                shpGroup.Group
                shpGroup.Left = wdShapeCenter
            End If
        End If
    Next
End Sub

The macro works as intended, except the new group is not anchored to the original paragraph where the shapes were located. Instead, it appears to anchor elsewhere in the document.

How can I ensure that after regrouping, the shapes remain anchored to the original paragraph?

Any help or suggestions would be greatly appreciated!

Thank you in advance.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Get rid of auto-numbering, but keep the original paragraph numbers	qubie	Word	6	05-21-2020 05:09 PM
Outlook increases paragraph spacing when including original in reply	Bud	Outlook	0	05-13-2016 11:51 PM
Exporting Grouped Shapes	JamesEddy	Word	4	12-08-2014 08:16 AM
Grouped Shapes > "Save Picture As"	JamesEddy	Word	0	10-29-2014 01:29 PM
Anchoring photo to paragraph	tharmon	Drawing and Graphics	3	06-07-2012 03:43 PM