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
用户登录
还没有账号?立即注册
用户注册
投稿取消
| 文章分类: |
|
还能输入300字
上传中....
丁杨55306969