Selection.InlineShapes.AddPicture FileName:= _
"C:\MijnPicture.JPG" _
, LinkToFile:=False, SaveWithDocument:=True
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend 'select the photo
Selection.ShapeRange.IncrementRotation 90# 'rotate the photo
|