Indsætte embedded files uden Fill og Border

Hej Eksperten.

jeg har fået lavet mig en makro til at indsætte embedded files ved et enkelt tryk. Som sidste prik over i'et, kunne jeg godt tænke mig, at den fil jeg indsætter, hverken har fill eller border.

Er der nogle standardindstillinger til at opsætte det? Eller ville jeg skulle ind og have lavet noget yderligere i min makro?

Den ser på nuværende tidspunkt sådan her ud.

Sub Macro1()
    'declare a variable to hold the file name:'
    Dim FName As String
   
    On Error Resume Next
   
    'load the variable via an input box:'
    FName$ = Application.GetOpenFilename
     
    'get the file:
    ActiveSheet.OLEObjects.Add(Filename:=FName, _
    Link:=False, _
    DisplayAsIcon:=False).Select

End Sub

På forhånd tak.

Mvh. Emil