[已解决]右键菜单添加调整?

dadasdas

右键菜单添加填充颜色和字体颜色，然后把填充颜色移到第一位，字体颜色第二位，代码怎么写?

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-2-24 09:42

dadasdas 发表于 2013-2-23 20:42
有添加填充颜色和字体颜色的代码，但是不知怎么把他们移到第一位和第二位？
Sub aaa()
With Applicatio ...

1. Sub aaa()
   
2.     Dim cma As CommandBarControl
   
3.     Dim cmb As CommandBarControl
   
4.     With Application.CommandBars("cell")
   
5.         .Reset
   
6.         Set cma = .Controls.Add(, ID:=1691, before:=1)
   
7.         Set cmb = .Controls.Add(ID:=401, before:=2)
   
8.     End With
   
9. End Sub

复制代码

跳转到最佳答案楼层

那么的帅

什么版本？
2003 2007 2010？

zjdh

加载宏
右键命令.rar (9.67 KB, 下载次数: 84)

2013-2-23 13:45 上传

点击文件名下载附件

dadasdas

zjdh 发表于 2013-2-23 13:45
加载宏

两个都是Before:=1，填充颜色怎么会在最上面？

dadasdas

zjdh 发表于 2013-2-23 13:45
加载宏

我想要填充颜色和字体颜色所有的颜色，跟工具栏上一样，不是固定的一个颜色

那么的帅

dadasdas 发表于 2013-2-23 14:08
我想要填充颜色和字体颜色所有的颜色，跟工具栏上一样，不是固定的一个颜色

295719-VBA-加载宏-设置右键菜单-调用填充颜色和字体颜色.rar (5.23 KB, 下载次数: 62)

2013-2-23 15:10 上传

点击文件名下载附件

dongqing1998

把三楼代码稍做修改：

1. Sub 字体颜色()
   
2. '    Selection.Font.ColorIndex = 3
   
3. Application.Dialogs(44).Show
   
4. End Sub
   
5. Sub 填充颜色()
   
6. '    Selection.Interior.ColorIndex = 4
   
7. Application.Dialogs(84).Show
   
8. End Sub

复制代码

hwc2ycy

既然都用10里，在快速访问工具栏添加2个图标，左键总比右键快嘛。

dadasdas

那么的帅 发表于 2013-2-23 15:10

能不能不用加载宏？

那么的帅

dadasdas 发表于 2013-2-23 19:11
能不能不用加载宏？

295719-VBA-设置右键菜单-调用填充颜色和字体颜色.rar (4.75 KB, 下载次数: 22)

2013-2-23 20:22 上传

点击文件名下载附件