title: Adjust image properties with AddPicture Method word vba
body: <p>I need to edit the properties of an image inserted by AddPicture method.</p>
  
  <p>1) I need to adjust the height to 0.5" and the width is variable (lock the aspect ratio).</p>
  
  <p>2) Wrap text = "In Front of Text"</p>
  
  <p>Is this possile with this method? If so how do I add those properties? If not, what other method should I use and how?</p>
  
  <pre><code>Sub replaceWithImage()
  
  Dim imageFullPath As String
  Dim FindText As String
  imageFullPath = "C:\Logo.jpg"
  FindText = "PlaceHolder"
  
  'Application.ScreenUpdating = False
  With Selection
      .HomeKey Unit:=wdStory
  
      With .Find
          .ClearFormatting
          .text = FindText
          ' Loop until Word can no longer
          ' find the search string, inserting the specified image at each location
          Do While .Execute
              Selection.MoveRight
              Selection.InlineShapes.AddPicture FileName:=imageFullPath, LinkToFile:=False, SaveWithDocument:=True
          Loop
  
      End With
  End With
  
  
      End Sub
  </code></pre>