Need help with using vba macro to align graphic to top right of page

Hello @desbest,

It worked OK for me on Word 2007.

I've fixed the problem with an addition of adding new lines to the VBA macro.

Code:

Sub alignGraphicElementToTopRightCornerOfPage()
'
' alignGraphicElementToTopRightCornerOfPage Macro
'
'
    Selection.ShapeRange.WrapFormat.Type = wdWrapFront
    ' choose the wrapping type
    ' the following values are good "3" "wdWrapFront" an "wdWrapTight"
    ' I don't know what "3" does but Microsoft Office 2007 uses it
    
    Selection.ShapeRange.RelativeHorizontalPosition = _
        wdRelativeHorizontalPositionColumn
    Selection.ShapeRange.RelativeVerticalPosition = _
        wdRelativeVerticalPositionPage
    Selection.ShapeRange.RelativeHorizontalSize = wdRelativeHorizontalSizePage
    Selection.ShapeRange.RelativeVerticalSize = wdRelativeVerticalSizePage
    ' these commands are needed if the wrapping type is "3" or "wdWrapFront"
    ' ensure the shape is aligned to the top right corner of the page
        ' This also fixes the formatting problems when the page has text on it,
        ' to prevent an extra line break or blank space appearing on the screen
        ' that the user did not intentionally create
    
    Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
    Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
    ' these commands are needed if the wrapping type is "wdWrapTight"

    Selection.ShapeRange.Align msoAlignTops, True
    Selection.ShapeRange.Align msoAlignRights, True
    ' start aligning the image to the top right of the page
    
End Sub

mngerhold said:

For the benefit of others: this is the line that turns an in-line object into a floater, the only addition I found necessary:

Code:

Selection.ShapeRange.WrapFormat.Type = wdWrapFront

Thanks for the question, I have learnt something! Martin

Just because only adding one line works for you, doesn't mean that you should recommend that other people should do the same. Your one extra line won't always work for everyone to be applicable for every scenario. My updated macro that you see in the previous post has lots of additional lines for a reason. There's a myriad of ways that a shape or graphic can be formatted, beyond just the text wrapping setting.



Watch the video I made below to illustrate this, why the extra lines I added are necessary. When adding just the one line you suggested, the expected behaviour of the macro fails and the graphic fails to move to the top right corner of the screen.

Anyway I have updated my macro code to make the comments more explanatory as to what the commands do and why they're there.

desbest said:

… doesn't mean that you should recommend that other people should do the same. ...

He didn't.

Denis