Adjusting objects location respective to their anchors

Bikram · #1 06-15-2022, 05:20 AM

Hi, I have a document where there are floating shapes (text boxes). I wrote the following macro to adjust these text boxes.

Code:

Sub Textbox()

Dim i As Integer
Dim sh As ShapeRange
Set sh = ActiveDocument.Range.ShapeRange
    For i = 1 To ActiveDocument.Shapes.Count
        If sh(i).Type = 17 And sh(i).AutoShapeType = 1 Then
            sh(i).Select
            With Selection.ShapeRange
                .RelativeHorizontalPosition = wdRelativeHorizontalPositionLeftMarginArea
                .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                .RelativeHorizontalSize = wdRelativeHorizontalSizeMargin
                .RelativeVerticalSize = wdRelativeVerticalSizeMargin
                .Left = CentimetersToPoints(1.7)
                .LeftRelative = wdShapePositionRelativeNone
                .TopRelative = wdShapePositionRelativeNone
                .WidthRelative = wdShapeSizeRelativeNone
                .HeightRelative = wdShapeSizeRelativeNone
                .LockAnchor = True
                .TextFrame.WordWrap = True
                .RelativeVerticalPosition =WdRelativeVerticalPosition.wdRelativeVerticalPositionParagraph    
            End With
        End If
     Next
End Sub

It aligns the text boxes to the left of the page, straight from their current position. All my text box's anchors are locked and I was wondering if they could be Horizontally aligned as the above macro does and also align them vertically to the position where they are anchored. I have attached a screenshot, first one is of the original, after running the above macro it looks like the second image, and the third image is the final result I want to achieve.

Thanks,
Bikram

Peterson · #2 06-15-2022, 11:23 PM

The following code aligns the top edge of each text box to the top of the paragraph to which the text box is anchored:

Code:

Sub Textbox() ' 06/15/2022

    Application.ScreenUpdating = False
    
    Dim i As Integer
    Dim sh As ShapeRange
    
    Set sh = ActiveDocument.Range.ShapeRange
    
    For i = 1 To ActiveDocument.Shapes.Count
        If sh(i).Type = 17 And sh(i).AutoShapeType = 1 Then
            sh(i).Select
            
            With Selection.ShapeRange
                .RelativeHorizontalPosition = wdRelativeHorizontalPositionLeftMarginArea
                
                ' Align shape relative to the paragraph to which it's anchored:
                .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
                
                ' Adjust alignment of the top of the shape to more precisely
                ' align it with the top of the paragraph; revise as necessary:
                .Top = CentimetersToPoints(0.18)
                
                .RelativeHorizontalSize = wdRelativeHorizontalSizeMargin
                .RelativeVerticalSize = wdRelativeVerticalSizeMargin
                .Left = CentimetersToPoints(1.7)
                .LeftRelative = wdShapePositionRelativeNone
                .TopRelative = wdShapePositionRelativeNone
                .WidthRelative = wdShapeSizeRelativeNone
                .HeightRelative = wdShapeSizeRelativeNone
                .LockAnchor = True
                .TextFrame.WordWrap = True
            End With
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Bikram · #3 06-16-2022, 05:26 AM

Thank you, peterson..

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Keeping comment anchors colored	mstratil	Word	2	11-22-2021 09:19 AM
Selecting and deleting all Object Anchors	jeffreybrown	Word VBA	2	05-06-2016 04:27 AM
Adjusting Header Space and Counter-adjusting another space setting to ensure identical page content	cgp1689	Word	3	10-14-2015 07:34 AM
Macros to move objects prevents moving same objects with arrow keys	BruceM	Word VBA	1	03-10-2015 08:20 AM
Funky connector behavior with newly added anchors	koz	PowerPoint	0	12-05-2012 01:28 PM