代码之家 › 专栏 › 技术社区 › MikeD

本地语言的Excel命令栏/控件

excel vba excel-2003 excel-vba

MikeD · 技术社区 · 15 年前

Win XP/Excel 2003/VBA…。

我有以下代码截获用户发起的所有粘贴活动(主菜单、上下文菜单和Control-V键),并将其发送到子TrappedPaste()。

....
Application.CommandBars("Edit").Controls("Paste").OnAction = "TrappedPaste"
Application.CommandBars("Edit").Controls("Paste Special...").OnAction = "TrappedPaste"
Application.CommandBars("Cell").Controls("Paste").OnAction = "TrappedPaste"
Application.CommandBars("Cell").Controls("Paste Special...").OnAction = "TrappedPaste"
Application.OnKey "^v", "TrappedPaste"
....

这个代码工作正常。奇迹发生在世界范围内的工作表首次展示期间,因为“编辑”不是“编辑”,“粘贴”不是用德语、法语和(a)leut和(z)apotec之间的所有其他语言“粘贴”:-o

问:

有什么方法可以达到独立于语言 Excel用户界面,即有一个与 “粘贴”参数相同所有国家语言?
我怎么能找到这个号码?
在所有本地Windows语言中,ctrl-v是否始终为ctrl-v?

事先谢谢你的帮助

致以亲切的问候

1 回复 | 直到 15 年前

GSerg 15 年前

工具栏上的每个控件都有一个 ID 它可以和 FindControl 功能:

? application.CommandBars("Edit").FindControl(msoControlButton, 22).Caption

哪里 22 是的ID Paste 按钮。据我所知,这个号码在不同语言中是相同的。
所以你可以在英文版中查找它们,然后用硬编码。

推荐文章

Kram Kramer · 通过vba自动调整文本大小以适应形状

1 年前

Swapnil Supekar · 将二维阵列转换为一维阵列,并将一维阵列粘贴到另一张图纸上

1 年前

Eric · 我有邮政编码替换问题Excel VBA

1 年前

Chasester · VBA使用嵌套的DIV抓取URL

1 年前

jkp · 特殊字符复选标记

1 年前

Iron Man · 代码插入和复制到错误的工作表

1 年前

NoFafo · 将文本框放入数组进行格式化

1 年前

Smokestack · 过滤器范围C3:G3并粘贴到其他单元格

1 年前

Julie S. · Excel VBA for循环的代码帮助,用于检查多个ListBoxes是否有值?

1 年前

Kram Kramer · 如何通过vba代码将Chart xAxes字体颜色从黑色更改为红色?

1 年前