Bonjour Forum,
Je m'adresse à vous pour un éclairage sur la façon de déclarer le dimensionnement d'une image en code vba avant export vers un fichier PPT.
Le code ci-dessous fonctionne parfaitement, mes 3 tableaux sont bien insérés dans un fichier PPT en revanche leurs dimensions dépassent largement celles des slides.
Ma question est la suivante : comment déclarer sur le code vba que l'image créée doit avoir une largeur qui ne doit pas dépasser 11cm (ça peut être inférieur), que la longueur qui ne doit pas dépasser 22cm (ça peut être également inférieur) et doit toujours être centrée verticalement sur le slide ?
Bonnes fêtes !
Code vba :
Sub MesImages ()
Application.ScreenUpdating = False
Dim PPApp As PowerPoint.Application
Set PPApp = GetObject(Class:="Powerpoint.Application")
PPApp.ActiveWindow.ViewType = ppViewSlide
PPApp.ActivePresentation.Slides(4).Select
Sheets("WBR TDB1").Range("C3:S26").CopyPicture _
Appearance:=xlScreen, Format:=xlPicture
PPApp.ActiveWindow.View.Paste
PPApp.ActivePresentation.Slides(5).Select
Sheets("WBR TDB2").Range("C3:S31").CopyPicture _
Appearance:=xlScreen, Format:=xlPicture
PPApp.ActiveWindow.View.Paste
PPApp.ActivePresentation.Slides(6).Select
Sheets("WBR TDB3").Range("C3:F27").CopyPicture _
Appearance:=xlScreen, Format:=xlPicture
PPApp.ActiveWindow.View.Paste
Set PPApp = Nothing
Application.ScreenUpdating = True
End Sub
Je m'adresse à vous pour un éclairage sur la façon de déclarer le dimensionnement d'une image en code vba avant export vers un fichier PPT.
Le code ci-dessous fonctionne parfaitement, mes 3 tableaux sont bien insérés dans un fichier PPT en revanche leurs dimensions dépassent largement celles des slides.
Ma question est la suivante : comment déclarer sur le code vba que l'image créée doit avoir une largeur qui ne doit pas dépasser 11cm (ça peut être inférieur), que la longueur qui ne doit pas dépasser 22cm (ça peut être également inférieur) et doit toujours être centrée verticalement sur le slide ?
Bonnes fêtes !
Code vba :
Sub MesImages ()
Application.ScreenUpdating = False
Dim PPApp As PowerPoint.Application
Set PPApp = GetObject(Class:="Powerpoint.Application")
PPApp.ActiveWindow.ViewType = ppViewSlide
PPApp.ActivePresentation.Slides(4).Select
Sheets("WBR TDB1").Range("C3:S26").CopyPicture _
Appearance:=xlScreen, Format:=xlPicture
PPApp.ActiveWindow.View.Paste
PPApp.ActivePresentation.Slides(5).Select
Sheets("WBR TDB2").Range("C3:S31").CopyPicture _
Appearance:=xlScreen, Format:=xlPicture
PPApp.ActiveWindow.View.Paste
PPApp.ActivePresentation.Slides(6).Select
Sheets("WBR TDB3").Range("C3:F27").CopyPicture _
Appearance:=xlScreen, Format:=xlPicture
PPApp.ActiveWindow.View.Paste
Set PPApp = Nothing
Application.ScreenUpdating = True
End Sub