title: How to set picture aspect ratio?
body: <pre><code>Sub ExampleUsage()
      Dim myPicture As String, myRange As Range
      myPicture = Application.GetOpenFilename _
          ("Pictures (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", _
          , "Select Picture to Import")
  
      Set myRange = Selection
      InsertAndSizePic myRange, myPicture
  End Sub
  
  Sub InsertAndSizePic(Target As Range, PicPath As String)
      Dim p As Object
      Application.ScreenUpdating = False
      Set p = ActiveSheet.Pictures.Insert(PicPath)
  
      If Target.Cells.Count = 1 Then Set Target = Target.MergeArea
      With Target
          p.Top = .Top
          p.Left = .Left
          p.Width = .Width
          p.Height = .Height
      End With
  End Sub
  </code></pre>
  
  <p>This is my code for Microsoft Excel. I want to have the aspect ratio unlock so that I can fill the entire merged cell. Thanks in advance.</p>