In this article I will explain how you can use VBA for word to get the dimensions of a picture in a word document.

The first step is to determine whether the picture is an inline or floating. For more information on this topic please see the link below:

• Word VBA, Loop Through Images

The next step would be to determine the index of the pictures shape container. I have covered this in the article below:

• Word VBA, Shape Index

Picture Height:

In points:

The picture height can be obtained in “points” for floating shapes using the code below:

intHeight = Shapes.Item(1).Height


and for inline shapes:

intHeight = InlineShapes.Item(1).Height


Note: In the examples above it is assumed the shape has an index of “1”.

In Pixels:

There is no direct function that will return the picture height in pixels, therefore we would need to convert the values obtained from the previous example to pixels. The relationship between pixels and points can be seen below:

1 Pixel = 72/96*1 Point

Therefore the height of a shape can be obtained in pixels from the code below:

intHeight = Shapes.Item(1).Height*72/96


and for inline shapes:

intHeight = InlineShapes.Item(1).Height*72/96


Picture Width:

In points:

The picture width can be obtained in “points” for floating shapes using the code below:

intWidth = Shapes.Item(1).Width


and for inline shapes:

intWidth = InlineShapes.Item(1).Width


Note: In the examples above it is assumed the shape has an index of “1”.

In Pixels:

Similar to what was explained in the previous section there is no direct function that will return the picture height in pixels, therefore we would need to convert the values obtained from the previous example to pixels. The relationship between pixels and points can be seen below:

1 Pixel = 72/96*1 Point

Therefore the height of a shape can be obtained in pixels from the code below:

intWidth = Shapes.Item(1).Height*72/96


and for inline shapes:

intWidth = InlineShapes.Item(1).Height*72/96


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