![]() |
#1
|
|||
|
|||
![]() 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 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. |
Tags |
shapes, vba |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
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 |
![]() |
JamesEddy | Word | 4 | 12-08-2014 08:16 AM |
Grouped Shapes > "Save Picture As" | JamesEddy | Word | 0 | 10-29-2014 01:29 PM |
![]() |
tharmon | Drawing and Graphics | 3 | 06-07-2012 03:43 PM |