【ComObjActive操作PPT】之对齐选定对象及置于顶层及底层

PPT中对齐选定对象功能使用较为频繁,经常性对齐需要频繁点击图标,操作较为繁琐。
下述代码基本涵盖了PPT所有的原生对齐功能及置于顶层及底层的功能。
Tips:选定对象为单个时,使用下述功能会报错。

F1::               ;水平居中
    ox := ComObjActive("PowerPoint.Application")
    msoAlignMiddles :=4
    msoFalse :=0
    ox.ActiveWindow.Selection.ShapeRange.Align(msoAlignMiddles,msoFalse)
Return
F2::               ;垂直居中
    ox := ComObjActive("PowerPoint.Application")
    msoAlignCenters :=1
    msoFalse :=0
    ox.ActiveWindow.Selection.ShapeRange.Align(msoAlignCenters,msoFalse)
Return
F3::              ;顶端对齐
    ox := ComObjActive("PowerPoint.Application")
    msoAlignTops :=3
    msoFalse :=0
    ox.ActiveWindow.Selection.ShapeRange.Align(msoAlignTops,msoFalse)
Return
F4::              ;底端对齐
    ox := ComObjActive("PowerPoint.Application")
    msoAlignBottoms :=5
    msoFalse :=0
    ox.ActiveWindow.Selection.ShapeRange.Align(msoAlignBottoms,msoFalse)
Return
F5::              ;左对齐
    ox := ComObjActive("PowerPoint.Application")
    msoAlignLefts :=0
    msoFalse :=0
    ox.ActiveWindow.Selection.ShapeRange.Align(msoAlignLefts,msoFalse)
Return
F6::              ;右对齐
    ox := ComObjActive("PowerPoint.Application")
    msoAlignRights :=2
    msoFalse :=0
    ox.ActiveWindow.Selection.ShapeRange.Align(msoAlignRights,msoFalse)
Return
F7::              ;横向分布
    ox := ComObjActive("PowerPoint.Application")
    msoDistributeHorizontally :=0
    msoFalse :=0
  ox.ActiveWindow.Selection.ShapeRange.Distribute(msoDistributeHorizontally,msoFalse)
Return
F8::              ;纵向分布
    ox := ComObjActive("PowerPoint.Application")
    msoDistributeVertically :=1
    msoFalse :=0
    ox.ActiveWindow.Selection.ShapeRange.Distribute(msoDistributeVertically,msoFalse)
Return
F9::              ;置于顶层
    ox := ComObjActive("PowerPoint.Application")
    msoBringToFront :=0
    ox.ActiveWindow.Selection.ShapeRange.Zorder(msoBringToFront)
Return
F10::              ;置于底层
    ox := ComObjActive("PowerPoint.Application")
    msoSendToBack :=1
    ox.ActiveWindow.Selection.ShapeRange.Zorder(msoSendToBack)
Return

给TA捐赠
共{{data.count}}人
人已捐赠
办公

【ComObjActive操作PPT】之为选中对象添加动画

2022-7-31 22:01:06

办公

效率提升-连续复制,连续粘贴

2022-8-4 17:50:26

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索