gui Button怎么加判断 #ppt

要实现目标:一键设置ppt文本框的格式。
现在的Bug:在不选中文本框的情况下,点击[Button_1, 标题一],会出错。

问题:怎么添加个判断,鼠标选中文本框才执行[Button_1, 标题一],未选中文本框直接return。或者出现错误弹窗,按esc能推出也行。

以下是代码

#IfWinActive ahk_exe POWERPNT.EXE ;仅在ppt下可用
$`::
Gui, New, +AlwaysOnTop,
Gui Font, s14 Bold cBlack, 黑体
Gui, Add, Button, x60 y60 w125 h30 gButton_1, 标题一
Gui, Show, w400 h600, PPTxx
return

Button_1: ;标题1
ppt := ComObjActive(“PowerPoint.Application”)
ppt.ActiveWindow.Selection.TextRange.Font.Color.rgb:=(0,0,0) ;qq截图获取rgb;深红192, 0,0 黑0,0,0 白255,255,255
ppt.ActiveWindow.Selection.TextRange.Font.Size:=32
ppt.ActiveWindow.Selection.TextRange.Font.NameFarEast:=”黑体”
ppt.ActiveWindow.Selection.TextRange.Font.Bold:=1 ;1是加粗,0无
;ppt.ActiveWindow.Selection.TextRange.Font.Italic:=0 ;1是倾斜,0无
;ppt.ActiveWindow.Selection.TextRange.Font.Shadow:=0 ;1是有阴影,0无
ppt.CommandBars.ExecuteMso(“AlignLeft”) ;左对齐
Return
#If

圈主 管理员

热门评论
:
讨论
    阅读剩余条回复 加载中...
没有讨论,您有什么看法?
图片审查中...
编辑答案: 我的回答: 最多上传一张图片和一个附件
x
x
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索