VBA Code- Insert and resize image with square text wrap

Question

i am new to VBA and don't really understand too much as i have only learnt to record macros. I am looking to insert an image into a template and have it 4cms tall with the width relative to the original sizing. I also need to have the text wrap as square wrap. Can anyone help at all please.

Answer 1

Here's a rather minimal macro to do what you asked for:

Sub InsertPictureSpecial()

    Dim strFilename As String

    Dim shpShape As Shape

    With Dialogs(wdDialogInsertPicture)

        .Display

        strFilename = .Name  ' full path of selected file

    End With

    If Len(strFilename) > 0 Then

        Set shpShape = ActiveDocument.Shapes.AddPicture( _

            FileName:=strFilename, _

            Anchor:=Selection.Range)

        With shpShape

            .LockAspectRatio = msoTrue

            .Height = CentimetersToPoints(4#)

            .WrapFormat.Type = wdWrapSquare

        End With

    End If

End Sub

The first part uses the built-in Insert > Picture dialog to let the user select a file. The .Display command shows the dialog, but when the user clicks the Insert button the dialog just closes without inserting the picture in the document. Instead, the next line captures the filename (including the full path) in a String variable.

The next part uses the filename to insert the picture as a floating Shape object (even if the user's Options setting says to insert pictures as In Line with Text). The object is "anchored" to the current location of the cursor (the Selection in VBA-speak). Then the macro locks the aspect ratio (the fraction height/width), sets the height to 4 cm, and sets the wrapping.

This macro could be expanded in several ways, such as setting the picture's position (its .Left and .Top values) relative to the anchor or to the page margins; using a different method of choosing the file to insert; and adding some error-trapping in case something goes wrong.

Answer 2

This worked a treat, thank you so much. i also appreciate you taking the time to talk through the steps as well.