De: Eric Jeanne <ejeanne@club-internet.fr>
Objet: Re: Excel vers PowerPoint
Date : samedi 2 d&eacute;cembre 2000 21:25

S&eacute;batien,

J'avais &eacute;crit des choses (imparfaites) sur le sujet il y a un mois. J'ai
trouv&eacute; sur le forum Ppt des gens extrêmement comp&eacute;tents en VBA pour Ppt qui
m'ont donn&eacute; des infos, dont le code suivant :

' =============================================================
Sub RangeToPresentation()
' First you must set VBE reference to Microsoft PowerPoint 8.0 Object
Library

Dim SheetName As Variant
Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
Dim PresentationFileName As Variant
Dim CurrentTitle As Variant
Dim SlideCount As Long

set PPApp = CreateObject("Powerpoint.Application")
set PPPres = PPApp.Presentations.Add

CurrentTitle = "XlRangeToPpt" 'place a title name here
PresentationFileName = PPApp.ActivePresentation.Path
PresentationFileName = PresentationFileName & CurrentTitle & ".ppt"

    SheetName = "Sheet1" 'chart sheet name here
    Sheets(SheetName).Range("MyRange").CopyPicture xlScreen, xlPicture

    SlideCount = PPPres.Slides.Count

    set PPSlide = PPPres.Slides.Add(SlideCount + 1, ppLayoutBlank)
        With PPSlide
            .Shapes.Paste
        End With
    SlideCount = SlideCount + 1

    With PPPres
        .SaveAs PresentationFileName
        .Close
    End With

PPApp.Quit

set PPApp = Nothing
set PPPres = Nothing

End Sub

' end code ====================================================

Cordialement.

--
Eric Jeanne
S&eacute;bastien KRECKE <mmc.sebastien@worldnet.fr> a &eacute;crit dans le message :
9054nv$1fq1$1@news4.isdnet.net...
> Bonjour à tous,
>
> Comment copier une plage d'Excel dans une diapo PowerPoint en tant
qu'image
> en Vba.
>
> Merci d'avance.
>
>

 