vba粘贴excel chart图表到当前powerpoint幻灯片中（后期绑定）-尊龙凯时

sub charttopresentation()
' uses late binding to the powerpoint object model
' no reference required to powerpoint object library
dim ppapp as object ' as powerpoint.application
dim pppres as object ' as powerpoint.presentation
dim ppslide as object ' as powerpoint.slide
' make sure a chart is selected
if activechart is nothing then
    msgbox "please select a chart and try again.", vbexclamation, _
        "no chart selected"
else
    ' reference existing instance of powerpoint
    set ppapp = getobject(, "powerpoint.application")
    ' reference active presentation
    set pppres = ppapp.activepresentation
    ppapp.activewindow.viewtype = 1 ' 1 = ppviewslide
    ' reference active slide
    set ppslide = pppres.slides _
        (ppapp.activewindow.selection.sliderange.slideindex)
    
    ' copy chart as a picture
    activechart.copypicture appearance:=xlscreen, size:=xlscreen, _
        format:=xlpicture
    ' paste chart
    ppslide.shapes.paste.select
    
    ' align pasted chart
    ppapp.activewindow.selection.shaperange.align msoaligncenters, true
    ppapp.activewindow.selection.shaperange.align msoalignmiddles, true
    ' clean up
    set ppslide = nothing
    set pppres = nothing
    set ppapp = nothing
end if
end sub