Sauve l'image qui se trouve dans le presse-papier (utilise PowerPoint)

SaveClipBoardImage.vbs

Sub SaveClipBoardImage(ByVal path As String)
    Dim oPPT As PowerPoint.Application
    Set oPPT = New PowerPoint.Application
    Dim pptLayout As CustomLayout
    Dim myslide As Slide
    Set newppt = oPPT.Presentations.Add(msoTrue)

    Set pptLayout = newppt.Designs(1).SlideMaster.CustomLayouts(1)
    With newppt.Slides.AddSlide(1, pptLayout)
        .Shapes.PasteSpecial DataType:=ppPastePNG
        .Shapes(.Shapes.Count).Export path, ppShapeFormatPNG
    End With
    
    oPPT.Quit
    Set oPPT = Nothing
End Sub