PowerPoint获取图形或文本框的位置参数

出于个人需要,用AutoHotKey写了一个查看PowerPoint图形或文本框的位置参数的小工具:
下载:pptDimen1.2_32bit.zip

如果对陌生的exe文件不放心,或是希望修改用在自己的项目中,源码如下,在AutoHotKey中运行即可:

Gui,+AlwaysOnTop
Gui, Add, Button, x40 y66 w105 h28 , 获取位置
Gui, Add, Text, x21 y28 w134 h28 +Center +BackgroundTrans, 请选择一个PPT中的图形或文本框单击按钮或按F3
Gui, Font, S12 CDefault, Verdana
Gui, Font, S12 CDefault, Verdana
Gui, Font, S14 CDefault, Verdana
Gui, Font, S14 CDefault Bold, Verdana
Gui, Font, S14 CDefault, Verdana
; Generated using SmartGUI Creator for SciTE
Gui, Show, w186 h123, pptDimen GUI
return
 
GuiClose:
ExitApp
 
Button获取位置:
F3::
IfWinExist, ahk_class PPTFrameClass
{   
ppt:=ComObjActive("PowerPoint.Application")
 
if ppt.ActiveWindow.Selection.Type = 2
{
    SR:=ppt.ActiveWindow.Selection.ShapeRange
    MsgBox ,4096,, % "Left:       " round(SR.Left,0) "`nTop:       " round(SR.Top,0) "`nWidth:   " round(SR.Width,0) "`nHeight:  " round(SR.Height,0)
}
else
    MsgBox ,4096,, % "没有选择图形或文本框"
}
else
MsgBox ,4096,, % "没有打开任何PowerPoint文件"
 
return


知识共享许可协议
除非注明,本博客文章均为原创
并采用知识共享署名-非商业性使用 4.0 国际许可协议进行许可。转载请以URL链接形式标注源地址。

标签: powerpoint, vba, autohotkey

添加新评论