Bonjour,
J'ai actuellement une macro permettant d'insérer une image dans une zone d'impression définie:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
  ' Aller chercher une image et l'implanter au format A3 paysage
 
               Sheets("Dessin").Select
 
            MsgBox "Vous êtes invité à aller chercher une image du projet"
 
           Dim Emplacement As Range
           Dim Img As Object
           Dim ShapeObj As Shape
 
           'Boucle pour supprimer l'ancienne image
           For Each ShapeObj In ActiveSheet.Shapes
               If ShapeObj.Name = "Cible" Then ActiveSheet.Shapes("Cible").Delete
           Next ShapeObj
 
           If Application.Dialogs(xlDialogInsertPicture).Show Then
               'Définit l'emplacement de l'image
               Set Emplacement = Range("A10:T54")
 
               Set Img = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
 
               With Img.ShapeRange
                   'Nommer l'image insérée (Pour la supprimer plus facilement ensuite)
                   .Name = "Cible"
                   .LockAspectRatio = msoFalse
                   .Left = Emplacement.Left
                   .Top = Emplacement.Top
                   .Height = Emplacement.Height
                   .Width = Emplacement.Width
               End With
 
           Else
               MsgBox "Insertion d'image interrompue."
           End If
Est-il possible d'avoir la même chose mais en insérant un PDF?