Sub Centerallpictures() ' For Each oILShp In ActiveDocument.InlineShapes oILShp.Select Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Next ' End Sub