[求助]如何实现自定义工具栏中的分隔线

豆芽菜

请问如何实现自定义工具栏中的分隔线，如图中红框内的竖线：

[此贴子已经被作者于2004-3-29 21:06:54编辑过]

素还真

请参考 BeginGroup

豆芽菜

楼主能讲具体点吗？谢谢先。

陇头梅

你可以在点鼠标左键的同时按下alt+其中任何的工具按钮,向左,或者向右平移,如果是增加两个按钮间的距离,就会增加一条小间隔线,如果是减少两个按钮间的距离,那条小的间隔线就会消失了,试试吧

香川群子

QUOTE:

以下是引用陇头梅在2007-3-28 17:00:00的发言：
你可以在点鼠标左键的同时按下alt+其中任何的工具按钮,向左,或者向右平移,如果是增加两个按钮间的距离,就会增加一条小间隔线,如果是减少两个按钮间的距离,那条小的间隔线就会消失了,试试吧

真是这样的哦！

高手！佩服，感谢！

本来我的做法是选择“工具”菜单，再选择“个人设定”，

出现窗口后，选择所要增加或去掉分隔线的右侧快捷图标后，右键就出现菜单，

在其中有“开始一组”的项目，在其前面打勾或去掉勾就行了。

VBA的命令就更加不知道了。

提醒，尝试4楼高手方法时，最好首先按住Alt键，然后左键选中图标，

（如果先按住图标，则切记左键不可放手）

如果要增加间隔，则向右拉远操作时不要超过被选中图标的右边那个图标一半的距离，

否则超过距离时出现大写I的插入符，就不产生新的间隔，而是把你选择的图标给移动到新的插入位置了。

（即向右拉的距离为自身图标的中央位置到右侧图标的中央位置之间，并且不可出现插入符。）

如果要去掉间隔，那么向左移动到原来图标的一半位置前，（这时不产生插入符）

或者继续移动到在左边图标的右侧位置，产生一个插入符时也可。

如果向左移动过了左侧图标的中线，在左图标左侧产生插入符时，

则不移除间隔，而是把你选择的图标给移动到新的插入位置了。

（我一开始试了几次，都因为移动距离太大而错了，险些儿发帖骂楼上高手骗人的呢。）

[此贴子已经被作者于2007-3-29 8:32:42编辑过]

Long_III

QUOTE:

以下是引用素还真在2004-3-29 22:00:00的发言：
请参考  BeginGroup

这个属性就是增加分隔线的，楼主可以在帮助里搜索一下

BeginGroup 属性

参阅应用于示例特性

如果指定的命令栏控件显示在命令栏控件组的最前面，则返回 True。Boolean 类型，可读写。

示例

本示例可实现的功能为：在活动菜单栏上将最后一个控件作为一个新组的开始。

Set myMenuBar = CommandBars.ActiveMenuBar
Set lastMenu = myMenuBar _
    .Controls(myMenuBar.Controls.Count)
lastMenu.BeginGroup = True
	

lionkinglk

自定义工具栏可以这样添加吗？？？

820211639

{:soso_e100:}

xgy0214dxy

不错，长知识了