Bonjour voici le code:

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
Function bPptExportTabRest(wsSheet As Worksheet, oPptDoc As Object, _
                rTab As Range, sTitre As String, lSlide As Long) As Boolean
 
bPptExportTabRest = True
 
Dim lNbShape As Long
 
    On Error GoTo errorHandler
    oPptDoc.Slides(lSlide).Shapes.Title.TextFrame.TextRange = sTitre
 
        wsSheet.Select
        rTab.CopyPicture
        oPptDoc.Slides(lSlide).Shapes.Paste
        Application.CutCopyMode = False
 
        lNbShape = Diapo.Shapes.Count
 
    'Renomme et met en forme l'objet collé
    With oPptDoc.Slides(lSlide).Shapes(1)
        .Left = 0 'définit la position horizontale dans le slide
        .Top = 0 'définit la position verticale dans le slide
        .Height = 100 'hauteur
        .Width = 200 'largeur
    End With
 
Exit Function
 
errorHandler:
    bPptExportTabRest = False
 
End Function
Le placement ne fonctionne pas.