[求助]制作工具栏上的切换按钮

novasky · 发表于 2006-12-28 17:26

我想在formatting工具栏上新填一个按钮，象toggle_botton一样（象“B”粗体字按钮一样），按下执行一个宏，弹起执行另一个，该这么做？

yuanzhuping · 发表于 2006-12-28 17:29

扦换按纽

清风_ll · 发表于 2006-12-28 17:57

QUOTE:

以下是引用yuanzhuping在2006-12-28 17:29:55的发言：
扦换按纽

工具栏中不可以使用.

建议使用两个按钮分别执行不同的功能!

novasky · 发表于 2006-12-28 19:15

明白。谢谢！

daluguo999 · 发表于 2006-12-28 19:33

扦换按钮什么意思? 在哪里?

yourliang · 发表于 2007-1-15 09:58

我也想知道，就像excel当中的绘图功能一样。

按一下出现绘图工具栏，然后此图标变为按下去的模式

，然后再按一下恢复正常，绘图工具栏也消失掉。怎么做怎么做？？？

yourliang · 发表于 2007-1-16 09:38

Sub ToggleButtonState()
Dim m As CommandBarControl
    Set m = CommandBars("CommandBarName").Controls(1)
    If m.State = msoButtonDown Then
        m.State = msoButtonUp
    Else
        m.State = msoButtonDown
    End If
    Set m = Nothing
End Sub

anu8its · 发表于 2008-10-24 16:08

这段有用

[此贴子已经被作者于2008-10-24 21:11:19编辑过]

anu8its · 发表于 2008-10-24 16:09

仔细看了遍我错了很好用谢谢7楼！

[此贴子已经被作者于2008-10-24 20:59:26编辑过]

		自动登录	找回密码
密码			免费注册