Resize Embedded Object

[ryan_law2000]

Hello I want to add to this code width=50 and height=100. basically keep a standard size of object when marco runs.
any ideas?

Sub AttachTicket()
Range("J18").Select
Dim vFile As Variant
vFile = Application.GetOpenFilename("All Files,*.*", Title:="Find file to insert")
If LCase(vFile) = "false" Then Exit Sub
ActiveSheet.OLEObjects.Add Filename:=vFile, Link:=False, DisplayAsIcon:=True, IconFileName:= _
"C:\WINDOWS\Installer\{90110409-6000-11D3-8CFE-0150048383C9}\xlicons.exe", _
IconIndex:=0, IconLabel:="Signed Ticket Attached! Double Click to View"
End Sub

thanks

 

[Norie]

Perhaps something like this.

Sub AttachTicket()
Dim vFile As Variant
Dim x As OLEObject

    Range("J18").Select

    vFile = Application.GetOpenFilename("All Files,*.*", Title:="Find file to insert")
    If LCase(vFile) = "false" Then Exit Sub
    Set x = ActiveSheet.OLEObjects.Add(Filename:=vFile, Link:=False, DisplayAsIcon:=True, IconFileName:= _
                                       "C:\WINDOWS\Installer\{90110409-6000-11D3-8CFE-0150048383C9}\xlicons.exe", _
                                       IconIndex:=0, IconLabel:="Signed Ticket Attached! Double Click to View")

    x.Height = 100
    x.Width =50

End Sub