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 := ""

}

广东省
浏览 53
收藏
3
分享
3 +1
1
+1
全部评论 1
 
HC.旋
跟着大佬学
· 福建省
回复