In this article I will explain how you can use VBA to iterate through the images in a word document. There are basically two types of images in a word document:

• Inline
• Floating

Inline Images:

Inline images appear on a separate line. There will not be any text to the left or right of the image:

Inline images all belong to the InlineShapes collection. They can be reference by iterating through the InlineShapes collection.

Example:

The code below does the following:

1. Iterates through all the InlineShapes in the word document.
2. Checks if the InlineShape object is a picture.
3. If the InlineShape is a picture it will modify its border

Option Explicit
Sub Example1()
Dim intCount As Integer
Dim i As Integer
'loop through inline shapes
For i = 1 To InlineShapes.Count
    'check if the current shape is an picture
    If InlineShapes.Item(i).Type = _
        wdInlineShapePicture Then
        'check the border color to black
        InlineShapes.Item(i).Line.BackColor = vbBlack
        'create the border with to 20
        InlineShapes.Item(i).Line.Weight = 20
        'change the border style to single
        InlineShapes.Item(i).Line.Style = msoLineSingle
    End If
Next i
End Sub


The code below loops through the inline shapes in the documents:

For i = 1 To InlineShapes.Count
...
Next i


The If statement checks if the inline shape is a picture:

If InlineShapes.Item(i).Type = _
        wdInlineShapePicture Then
...
End If


The lines below modify the InlineShape object:

InlineShapes.Item(i).Line.BackColor = vbBlack
'create the border with to 20
InlineShapes.Item(i).Line.Weight = 20
'change the border style to single
InlineShapes.Item(i).Line.Style = msoLineSingle


Result:

Floating Image:

Floating images are images that appear among the text:

These images belong to the Shapes collection. They can be reference by iterating through the Shape collection.

Example:

The code below does the following:

1. Iterates through all the shapes in the word document.
2. Checks if the shape object is a picture.
3. If the shape is a picture it will modify its border

Sub Example2()
Dim intCount As Integer
Dim i As Integer
'loop through inline shapes
For i = 1 To Shapes.Count
    'check if the current shape is an picture
    If Shapes.Item(i).Type = msoPicture Then
        'check the border color to black
        Shapes.Item(i).Line.BackColor = vbBlack
        'create the border with to 20
        Shapes.Item(i).Line.Weight = 20
        'change the border style to single
        Shapes.Item(i).Line.Style = msoLineSingle
    End If
Next i
End Sub


Result:

You can download the files and codes related to this article from the links below:

• Floating Images.docm
• Inline Images.docm

See also:

• Word VBA, Get Picture Horizontal Position
• Word VBA, Adding Caption to Images
• Word VBA, Removing Picture Captions
• Word VBA, Re-Adjust Caption
• Excel VBA, Border Color

If you need assistance with your code, or you are looking for a VBA programmer to hire feel free to contact me. Also please visit my website  www.software-solutions-online.com