Discussion :

[PierreXV]

Bonjour à tous

J'ai comme projet d’insérer un PDF dans un fichier texte (plus exactement dans une zone de mon tableau) à l'aide d'une macro. Cependant je suis débutant en VBA...
J'ai compris le principe pour insérer mon PDF...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.InlineShapes.AddOLEObject ClassType:="AcroExch.Document.7",FileName:="", LinkToFile:=False, DisplayAsIcon:=False

...mais j'ai surtout du mal à le redimensionner et le faire apparaître au premier plan de mon tableau.
Quelqu'un pourrait m'expliquer la démarche à entreprendre?

[PierreXV]

Pour la dimension du PDF j'avais penser à truc du genre enfin je dis ca je dis rien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each  Selection.InlineShapes.Range, Height := 20 , Width:= 10

[kiki29]

Salut, un échantillon sommaire, à toi de poursuivre

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
Option Explicit
 
Sub Pdf2Doc()
Dim sNom As String
Dim oIls As InlineShape
Dim oShp As Shape
 
    sNom = ThisDocument.Path & "\" & "Test 01.pdf"
 
    ThisDocument.InlineShapes.AddOLEObject FileName:=sNom
 
    Set oIls = ThisDocument.InlineShapes(1)
    Set oShp = oIls.ConvertToShape
 
    With oShp
        .Left = 10
        .Top = 100
        .Width = 150
        .Height = 300
        .Shadow.Type = msoShadow5
    End With
 
    Set oShp = Nothing
    Set oIls = Nothing
End Sub

[kiki29]

Salut, voir aussi ici.