#1
|
|||
|
|||
Adjusting objects location respective to their anchors
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 Thanks, Bikram |
#2
|
|||
|
|||
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 |
#3
|
|||
|
|||
Thank you, peterson..
|
Thread Tools | |
Display Modes | |
|
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 |