★★ 终于通过VB成功添加了EMOJI

把命令添加到右键的方式有很多种。

包括用工具自定义加载项、修改POPUPMENU。

本次测试用VB宏添加。添加成功。

VB宏不仅可以调用系统内置图标，也可以自定义图标（BMP格式，如图所示）

前面的三角尖就是自定义图标，其实这是一个字母A，在画图里弄的，因为画图面积太小，没有显示全，也懒得调了。

然后就想能不能添加EMOJI表情呢？（我好像对此情有独钟，之前VB调用都遭遇失败而告终）

发现这次也依旧是不可以。

一以贯之的给我转成问号。

改用ChrW() 调用 emoji 的 Unicode 编码，发现有点变化

——只是变成三个问号：

然后就跑去POPUPMENU.KUIP里寻找，看看VB是不是修改了KUIP的代码，在那里是可以修改的，但是发现KUIP纹丝未动，没有被修改过痕迹，VB走的不是这条线。

后了解到 ChrW() 仅支持 16 位编码，而 Emoji 是 32 位，需拆分为两个 16 位才能显示。

改成了以下方式：

.Caption = ChrW(&HD83D) & ChrW(&HDC8B) & " 设置微软雅黑"

终于成功了：

当然加载项不存在这个问题，只是VB宏对这个支持并不友好，贴出与同求者共享。