Export PPT: Centrer une image
Bonjour voici le code:
Code:
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.