Modifier la taille d'un fichier pdf inséré

Bonjour,

J'ai réalisé une petite macro qui permet de charger un fichier pdf dans la feuille Excel et de choisir le nom.

Sub insert_pdf()

    Chemin = Application.GetOpenFilename("Fichiers PDF(*.pdf),*.pdf", Title:="Choisir le fichier .PDF à insérer")

    If Chemin = False Then Exit Sub

    Dim Nom As String
       Nom = InputBox("Saisir le nom du fichier")

    ActiveSheet.OLEObjects.Add(Filename:= _
        Chemin, Link:=False, _
        DisplayAsIcon:=True, IconFileName:= _
        "C:\WINDOWS\Installer\{AC76BA86-7AD7-1036-7B44-AC0F074E4100}\PDFFile_8.ico", _
        IconIndex:=0, IconLabel:= _
        "" & Nom & ".pdf").Select

End Sub

Dans l'idéal je voudrais savoir s'il est possible de modifier aussi la taille.

Merci d'avance

Bonjour Boshupp

Comme vous insérez un objet OLE, la taille dépend uniquement de celle du document original

En général on ne pratique pas de la sorte, il suffit que le fichier se "casse" et tout est perdu

A+

Bonjour BrunoM45,

Merci de ta réponse !

Comme je l'insérai sous forme d'icône je pensais qu'il était possible de modifier la taille de l'icône