AHK粗劣实现图片格式刷

wils
wils

创作者俱乐部成员

试了一下,只实现了按F3记住长宽,按F4设置长宽,兼容浮动和嵌入图片,可以加上其他格式

确实没有excel里的F4重复上一步操作来的方便,确实不好弄啊🤣

需要安装ahk2,或者使用打包好的exe

🔔

#Requires AutoHotkey v2.0

#SingleInstance Force

GetWPS() {

try {

return ComObjActive("Kwps.Application")

} catch {

MsgBox "等待COM注册", , "0 T0.6"

return ComObjActive("Kwps.Application")

}

}

F3::

F4::

{

wps := GetWPS()

if (A_ThisHotkey == 'F3') {

static d

if (wps.Selection.Type == 7) {

d := [wps.Selection.InlineShapes(1).Width, wps.Selection.InlineShapes(1).Height]

}

else {

d := [wps.Selection.ShapeRange.Width, wps.Selection.ShapeRange.Height]

}

} else {

if (wps.Selection.Type == 7) {

wps.Selection.InlineShapes(1).LockAspectRatio := false

wps.Selection.InlineShapes(1).Width := d[1]

wps.Selection.InlineShapes(1).Height := d[2]

}

else {

wps.Selection.ShapeRange.LockAspectRatio := false

wps.Selection.ShapeRange.Width := d[1]

wps.Selection.ShapeRange.Height := d[2]

}

}

wps := ""

}

广东省
浏览 1670
收藏
3
分享
3 +1
2
+1
全部评论 2
 
VenkTan
为什么现在我获取不了ComObjActive了?哪位大佬能出来解答一下吗?
· 广东省
回复
wils
wils

创作者俱乐部成员

我用的最新32位个人版wps,试了一下还能用的 这些office、wps有个特殊,第一次打开时不会注册,所以comobjactive找不到,只有第一次窗口失去焦点再获得焦点时才能找到,不知道是不是这个原因 或者详细一点说说是什么系统,怎么安装的wps,ahk里能否直接创建comobject能行不
· 海南省
回复