[求助]如何VBA代码新建工具栏按钮同时有"图像与文本

风之助

Word中在自定义工具栏中可以设置工具栏类型为“图像与文本”，请问VBA代码如何实现？

Set MyCommandBar = Application.CommandBars.Add(Name:="自定义样式") MyCommandBar.Visible = True Set ctrlBtn(0) = MyCommandBar.Controls.Add(Type:=msoControlButton, ID:=2321) With ctrlBtn(0) .Parameter = "!1章" .FaceId = 70 .Caption = "章" '???????如何设置属性？ End With

守柔

请参:

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-9-15 4:54:34 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 00023^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub Example() Dim mycommandbar As CommandBar, ctrlBtn As CommandBarControl Set mycommandbar = Application.CommandBars.Add(Name:="自定义样式") mycommandbar.Visible = True Set ctrlBtn = mycommandbar.Controls.Add(Type:=msoControlButton, ID:=2321) With ctrlBtn .Parameter = "!1章" .FaceId = 70 .Caption = "章" .Style = msoButtonIconAndCaption End With End Sub '----------------------

风之助

谢谢守柔兄!!!

真是太佩服你了!!!!

[此贴子已经被作者于2005-9-16 22:47:11编辑过]