VBA MS-WORD发送密钥问题

Question

我对此代码有问题

Private Sub CortarSobrantes()
'Procedimiento que llama al comando "Comprimir imágenes" con parámetros
    With Application.CommandBars.FindControl(ID:=6382)
        SendKeys "%T%n%C{ENTER}", False ' Las letras equivalen a los accesos de teclado en la ventana, ~ para ejecucion
        .Execute
    End With
End Sub

如果我在项目内点击运行（F5），它将运行正常，但是当我尝试通过按钮快捷方式调用它时，它不会捕获SendKeys。如果我尝试按步骤（F8）运行它，也会发生这种情况

BTW %T%n%C用于西班牙语命令组合（所有图像，不压缩，不改变分辨率，不删除裁剪区域）

我使用SendKeys的原因是，我试图删除函数中的裁剪区域以便从按钮中调用它，因此可以跳过标记选项。据我所知，对象模型中没有任何东西允许这样做。

我是否缺少重点所在？

我对此代码有一些问题，私人Sub CortarSobrantes（）'Procedimiento que llama al comando“ Comprimirimágenes”与Application.CommandBars.FindControl（ID：= 6382）进行了比较...

Answer 1

Answer 2