Question

在word vba中插入图片后怎么让图片按指定快捷键

Sub pass()
'
' pass ºê
'
'
Selection.InlineShapes.AddPicture FileName:="D:\cdr\jpg\test\qc01..tif"
SendKeys "^/"
End Sub

本来是这样的，可是插入图片后ctrl+/的组合键没有反应

Answer 1

系统默认的组合键没有找到 "^/"用法桐亏。
若是自定义热键，请分别局尺神open和beforeclose事件中进行定义和释放，并且保存关闭后重新打开。

例：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^{d}"'恢复系统对^d的默困旅认设置
End Sub

Private Sub Workbook_Open()
Application.OnKey "^{d}", "UserSubName"'定义^d热键执行用户自定义的函数
End Sub