Microsoft Office Forums - View Single Post - Grouped Shapes Not Anchoring to Original Paragraph in Word VBA

Guessed · 12-12-2024, 05:03 PM

There should be no need to ungroup the shapes as you can resize and move them as child elements. For instance,

Code:

            'shpGroup.Ungroup
            Debug.Print shpGroup.GroupItems.Count
            For Each shp In shpGroup.GroupItems
              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

Having said that, I haven't taken the time to figure out the desired width and offsets and find the characters in the selected text stylename and right to left is not helping.