难题: 这种DropDown的Commnad Bar control是怎么做出来的呢?

IOOI

难题: 这种DropDown的Commnad Bar control是怎么做出来的呢? 附件这种Botton Drop Down的Control是怎么做出来的呢? 看了好多资料, 都没有找到解决办法 : ( 难道VBA只允许添加msoControlButton, msoControlEdit, msoControlDropdown, msoControlComboBox, msoControlPopup这5种control吗? 其他类型如msoControlSplitButtonPopup, msoControlButtonDropdown就实现不了吗? 还请大家帮忙讨论一下, 看能不能找到解决办法

IOOI

附件怎么不见了? http://www.officefans.net/cdb/viewthread.php?fpage=1&tid=27325

守柔

看看这个可否：

Sub Rt() CommandBars("Formatting").Reset End Sub

Sub Atest() Dim mybar As CommandBarControl, mycontrols1 As CommandBarButton, mycontrols2 As CommandBarButton Dim mycontrols3 As CommandBarButton, mycontrols4 As CommandBarButton Set mybar = CommandBars("Formatting").Controls.Add(Type:=msoControlSplitButtonPopup _ , ID:=386, Before:=1) mybar.TooltipText = "Hello!This is a test!" Set mycontrols1 = mybar.Controls.Add mycontrols1.Caption = "-----" mycontrols1.OnAction = "gotest" Set mycontrols2 = mybar.Controls.Add mycontrols2.Caption = "=====" Set mycontrols3 = mybar.Controls.Add mycontrols3.Caption = "+++++" Set mycontrols4 = mybar.Controls.Add mycontrols4.Caption = "******" End Sub Sub gotest() MsgBox "this is a test" End Sub

IOOI

谢谢斑竹, 这种方法可以把类似的control添加进来.

但是有没有办法变成自己想要的FaceID呢?

CommandBarControl并没有FaceID的属性,

不能进行CopyFace和PasteFace操作

FENGJUN

以下是引用守柔在2004-9-17 5:55:00的发言：

看看这个可否：

Sub Rt() CommandBars("Formatting").Reset End Sub

Sub Atest() Dim mybar As CommandBarControl, mycontrols1 As CommandBarButton, mycontrols2 As CommandBarButton Dim mycontrols3 As CommandBarButton, mycontrols4 As CommandBarButton Set mybar = CommandBars("Formatting").Controls.Add(Type:=msoControlSplitButtonPopup _ , ID:=386, Before:=1) mybar.TooltipText = "Hello!This is a test!" Set mycontrols1 = mybar.Controls.Add mycontrols1.Caption = "-----" mycontrols1.OnAction = "gotest" Set mycontrols2 = mybar.Controls.Add mycontrols2.Caption = "=====" Set mycontrols3 = mybar.Controls.Add mycontrols3.Caption = "+++++" Set mycontrols4 = mybar.Controls.Add mycontrols4.Caption = "******" End Sub Sub gotest() MsgBox "this is a test" End Sub

移植到EXCEL中出现错误：

[此贴子已经被作者于2004-9-17 13:51:25编辑过]

IOOI

没错啊 我试过了 不应该有错误的啊

各版本Office'格式'工具栏就是"Formatting" 而且ID也是唯一的

Btw, 我把ID换成401了

'* +++++++++++++++++++++++++++++++++++++++++++++ '* Created by 守柔@excelhome, 2004-9-17 5:55 '* Modified by IOOI, 2004-9-17 13:53 '* ----------------------------------------------------------------------- Sub Btest() Dim mybar As CommandBarControl, mycontrols1 As CommandBarButton, mycontrols2 As CommandBarButton Dim mycontrols3 As CommandBarButton, mycontrols4 As CommandBarButton Dim c1 As CommandBarButton Set mybar = CommandBars("Formatting").Controls.Add(Type:=msoControlSplitButtonPopup _ , ID:=401, Before:=1) mybar.TooltipText = "Hello!This is a test!" Set c1 = CommandBars.FindControl(Type:=msoControlButton) c1.CopyFace 'CommandBars("Formatting").Controls(1) Set mycontrols1 = mybar.Controls.Add mycontrols1.Caption = "-----" mycontrols1.OnAction = "gotest" mycontrols1.FaceId = 2 Set mycontrols2 = mybar.Controls.Add mycontrols2.Caption = "=====" mycontrols2.PasteFace Set mycontrols3 = mybar.Controls.Add mycontrols3.Caption = "+++++" mycontrols3.FaceId = 4 Set mycontrols4 = mybar.Controls.Add mycontrols4.Caption = "******" mycontrols4.PasteFace End Sub

[此贴子已经被作者于2004-9-17 14:17:01编辑过]

IOOI

以下是引用IOOI在2004-9-17 13:16:00的发言：

谢谢斑竹, 这种方法可以把类似的control添加进来.

但是有没有办法变成自己想要的FaceID呢?

CommandBarControl并没有FaceID的属性,

不能进行CopyFace和PasteFace操作

旧话重提, 现在还没有完全实现自定义, 有办法吗?

FENGJUN

在EXCEL中是如下效果吗？

IOOI

是的 你试试先把其他的control删除, 看会不会影响到原来的颜色bar

守柔

以下是引用IOOI在2004-9-17 13:16:00的发言：

谢谢斑竹, 这种方法可以把类似的control添加进来.

但是有没有办法变成自己想要的FaceID呢?

CommandBarControl并没有FaceID的属性,

不能进行CopyFace和PasteFace操作

诚如楼主所言，其实从写代码时就存在以下几个问题：

一是ID号只能作用于TYPE为msoControlSplitButtonPopup（INDEX为13 的部分ID），如以下ID：

Caption=边框颜色(&B)Type=13ID=2628

Caption=插入形状(&N)Type=13ID=6925

Caption=底纹色(&S)Type=13ID=2947

Caption=键盘语言(&K)Type=13ID=3659

Caption=接受修订(&A)Type=13ID=6240

Caption=拒绝修订/删除批注(&R)Type=13ID=6243

Caption=三维颜色(&3)Type=13ID=1694

Caption=填充颜色(&F)Type=13ID=1691

Caption=突出显示(&H)Type=13ID=340

Caption=底纹色(&S)Type=13ID=2947

Caption=下划线(&U)Type=13ID=3962

Caption=线条颜色(&L)Type=13ID=1692

Caption=新建批注(&W)Type=13ID=6969

Caption=行距(&L)Type=13ID=5734

Caption=阴影颜色(&S)Type=13ID=1693

Caption=中文简繁转换(&R)...Type=13ID=4026

Caption=字符缩放(&C)Type=13ID=386

Caption=字体颜色(&F)Type=13ID=401

至于FACEID，肯定是不行的，一则FACEID、copyface\pasteface仅作用于CommandBarButton 。另外也可从工具自定义右击某一该类型按钮命令可出现右键菜单除CAPTION属性外其均泛白也可知其不支持。

楼主可否考虑其它变通的办法。