Embed and resize object with Macro/VBA

I found this very old post and it is almost exactly what I want... However there is one minor change I'm after.
here... /excel-programming-vba-macros/714267-resize-icon-representing-embedded-object-using-vba (I would make this a proper link -- but you all don't trust me with that much power)

I trust you :-)
https://excelforum.com/excel-program...using-vba.html
--6StringJazzer

well, there were a couple of changes, but I figured them out. What remains is I don't like the icon it gives. If I manually resize the object I end up with an icon that looks like a minuature of the document. With the macro, I didn't. I tried just deleting the icon file name (see code below), but that gives me a white square. What I would like is what I thought was the default.

Also, tried to include pic... as this is one of those cases where a picture would definately be worth 1000 words, but again not allowed for new users. Looks like it did allow the image after all... First icon is if done manually, 2nd is with the code from the above referenced thread, 3rd icon is what I am getting with code posted below.

' embed file
' resize_embedded_object Macro
'

Public Sub btnAddFile()
Dim vFile As Variant

vFile = Application.GetOpenFilename("All Files,*.pdf", Title:=" Find file to insert")
If LCase(vFile) = "false" Then Exit Sub

ActiveSheet.OLEObjects.Add Filename:=vFile, Link:=False, DisplayAsIcon:=True

    With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
      .Left = ActiveCell.Left
      .Top = ActiveCell.Top
      .Height = ActiveCell.Height
    End With
    
End Sub