Word – MS Word: Center align only image in a list

microsoft word

I have made a numbered list in Word 2010. Each list entry has an image as well. I want to center align all images, but when I try to center align an image, the text above get centered as well.

MS Word 2010 - List with images

How can I center align images in the list without centering the text above and below.

Best Answer

Ok, here's what you do:

  1. Right click on the image and select, 'Size & Position...'
  2. Select the 'Text Wrapping' tab
  3. Select 'Top & Bottom'
  4. Select the 'Position' tab
  5. Under the 'Horizontal' section, select 'Alignment' and then select 'Centered' relative to 'Column'

Unfortunately, doing this for multiple images is problematic. Format painter won't work. Also, simply using the Macro Recorder causes problems when trying to select the image.

So, creating a VBA macro and binding it to a key would seem to be the only way forward to make this super-efficient. Here are two helpful posts in this regard:

From the first of these references, I have tested the following VBA macro. Seems to work fine! 

Sub FormatMyPicture()  
   Dim myShape As Shape

   If Selection.InlineShapes.Count > 0 Then
       Set myShape = Selection.InlineShapes(1).ConvertToShape
   ElseIf Selection.ShapeRange.Count > 0 Then
       Set myShape = Selection.ShapeRange(1)
   Else
       MsgBox "Please select a picture first."
       Exit Sub
   End If

   With myShape
       .WrapFormat.Type = wdWrapTopBottom
       .WrapFormat.DistanceTop = InchesToPoints(0.2)
       .WrapFormat.DistanceBottom = InchesToPoints(0.2)
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
       .Left = wdShapeCenter
   End With
End Sub
Related Question