Macro to insert object (Create from file): Show Object Type/Name and Limit Object Size

Hi:

Using this macro to insert object from file.

'Start - Macro to insert object (Create from file)
Sub AddAttachment()
'declare a variable to hold the file name:'
Dim FName As String
Range("B51").Select
'load the variable via an input box:'
FName$ = Application.GetOpenFilename

'get the file:
ActiveSheet.OLEObjects.Add(Filename:=FName, _
Link:=False, _
DisplayAsIcon:=True).Select
End Sub
'End - Macro to insert object (Create from file)

How can I enhance so that the object shows the file type (example: Word, Excel), file name and has a specific size? Right now the object is created but it fills the entire cell (which is quite wide) and does not show file name or file type.

Thanks.