Insérer un objet sous forme d'icone

Bonjour,

J'aimerais automatiser via un bouton le fait d'insérer un objet (PDF) sous forme d'icone et pouvoir l'envoyer par mail. Le but étant que le fichier excel comporte le pdf un peu comme une pièce jointe.

J'ai fait ceci en enregistrant une macro mais ça ne fonctionne pas correctement.

Private Sub CommandButton1_Click()
 ActiveSheet.OLEObjects.Add(ClassType:="AcroExch.Document.7", Link:=False, _
        DisplayAsIcon:=True, IconFileName:= _
        "C:\windows\Installer\{AC76BA86-1033-F400-7760-000000000005}\_PDFFile.ico", _
        IconIndex:=0, IconLabel:="Adobe Acrobat Document").Activate
End Sub

Merci d'avance,