对 Microsoft Office 命令栏进行更多编程(2)
2024-07-21 02:23:55
供稿：网友
可以使用如下所示的代码测试该函数：
public sub testaddcomboboxtocommandbar()
' 用途：测试 addcomboboxtocommandbar 函数。
dim strchoices(4) as string
strchoices(1) = "vanilla"
strchoices(2) = "chocolate"
strchoices(3) = "strawberry"
strchoices(4) = "other"
if addcomboboxtocommandbar("tools", "favorite ice cream", _
strchoices) = true then
msgbox "组合框已成功添加。"
else
msgbox "未能添加组合框。"
end if
end sub
禁用和隐藏命令栏与命令栏控件
开发 office 解决方案时，您可能需要防止用户在与该解决方案关联的某些命令栏和命令栏控件上单击。例如，您可能需要防止用户单击“窗体”工具栏上的任何控件，以免修改您在 microsoft word 中创建的自定义窗体。您也可能需要为给定的解决方案禁用“工具”菜单上的“宏”命令。
将命令栏或命令栏控件的 enabled 属性设置为 false 可禁用命令栏或命令栏控件；同样，将命令栏或命令栏控件的 enabled 属性设置为 true 可启用命令栏或命令栏控件。
将命令栏或命令栏控件的 visible 属性设置为 false 可隐藏命令栏或命令栏控件；同样，将命令栏或命令栏控件的 visible 属性设置为 true 可显示命令栏或命令栏控件。
要尝试此操作，请将以下代码行输入到“立即”窗口。每个代码行将切换指定的命令栏或命令栏控件的启用或可见状态。如果在 outlook 或 microsoft visual basic® editor 中输入此代码，请务必使用 application.activeexplorer 或 application.vbe 术语。要返回到开始时的启用或可见状态，请确保将每行运行两次。
application.commandbars("tools").enabled = _
not application.commandbars("tools").enabled
application.commandbars("tools").controls("macro").enabled = _
not application.commandbars("tools").controls("macro").enabled
application.commandbars("tools").controls("macro").visible = _
not application.commandbars("tools").controls("macro").visible
定位命令栏
命令栏的 position 属性指定命令栏在应用程序中的位置。msobarleft、msobartop、msobarright 和 msobarbottom 枚举常数指定在应用程序的左边、上边、右边或下边显示命令栏。msobarfloating 枚举常数指定命令栏不靠接到应用程序的边缘。msobarpopup 枚举常数指定命令栏是弹出菜单。
以下函数更改所指定的命令栏的位置。
public function changecommandbarposition(byval strcommandbarname as string, _
byval msoposition as msobarposition) as boolean
' 用途：更改命令栏的位置。
' 接受：
' strcommandbarname：要更改位置的命令栏名称。
' 返回：如果命令栏移动成功，则为 ture。
on error goto changecommandbarposition_err
' 将下一行代码替换为：
' application.activeexplorer.commandbars.item(strcommandbarname).position = _
msoposition <- 对于 outlook
' application.vbe.commandbars.item(strcommandbarname).position = _
msoposition <- 对于 visual basic editor
application.commandbars.item(strcommandbarname).position = msoposition
changecommandbarposition_end:
changecommandbarposition = true
exit function
changecommandbarposition_err:
changecommandbarposition = false
end function
可以使用如下所示的代码测试该函数：
public sub testchangecommandbarposition()
' 用途：测试 changecommandbarposition 函数。
if changecommandbarposition("standard", msobarfloating) = true then
msgbox "命令栏已成功移动。"
else
msgbox "未能移动命令栏。某些命令栏无法" & _
"以某些方式移动。"
end if
end sub
动态添加和删除命令栏
有时需要将命令栏与特定 office 文档关联在一起。例如，您需要在特定 office 文档打开时才显示某些自定义命令栏，并在特定 office 文档关闭时将其隐藏。要以编程方式执行此操作，使用 excel 就是一个不错的示例。要测试该操作，请创建一个新的空白工作簿，然后将 sheet1 重命名为 commandbarinfo。将以下信息键入 commandbarinfo 工作簿中：
图 4：在 excel 中动态创建命令栏的信息
在 visual basic editor 中，将以下代码添加到与新空白工作簿关联的新代码模块中：
public function createcommandbarpopup() as boolean
' 用途：根据 excel 工作表中提供的信息，
' 创建一个包含菜单项的命令栏弹出控件。
' 返回：如果命令栏弹出控件
' 成功添加，则为 true。
dim objworksheet as excel.worksheet
dim objcommandbarcontrol as office.commandbarcontrol
dim objcommandbarpopup as office.commandbarpopup
dim objcommandbarbutton as office.commandbarbutton
dim introw as integer
on error goto createcommandbarpopup_err
' 必须将包含命令栏信息的工作表
' 命名为“commandbarinfo”。
set objworksheet = thisworkbook.sheets("commandbarinfo")
' 从以前的版本中删除该控件的
' 所有现有实例。
for each objcommandbarcontrol in application.commandbars.item("standard").controls
if objcommandbarcontrol.caption = objworksheet.cells(1, 1) then
objcommandbarcontrol.delete
end if
next objcommandbarcontrol
set objcommandbarpopup = _
application.commandbars.item("standard").controls.add(msocontrolpopup)
objcommandbarpopup.caption = objworksheet.cells(1, 1)
introw = 3
' 一直添加按钮，直到标题用尽为止。
do until objworksheet.cells(introw, 1) = ""
with objcommandbarpopup
set objcommandbarbutton = .controls.add(msocontrolbutton)
with objcommandbarbutton
.caption = objworksheet.cells(introw, 1)
.onaction = objworksheet.cells(introw, 2)
end with
end with
introw = introw + 1
loop
createcommandbarpopup_end:
createcommandbarpopup = true
exit function
createcommandbarpopup_err:
createcommandbarpopup = false
end function
public function deletecommandbarpopup() as boolean
' 用途：根据 excel 工作表中提供的信息，
' 删除命令栏弹出控件。
' 返回：如果命令栏弹出控件被
' 成功删除，则为 true。
dim objworksheet as excel.worksheet
dim objcommandbarcontrol as office.commandbarcontrol
on error goto deletecommandbarpopup_err
' 必须将包含命令栏信息的工作表
' 命名为“commandbarinfo”。
set objworksheet = thisworkbook.sheets("commandbarinfo")
' 删除该控件的所有现有实例。
for each objcommandbarcontrol in application.commandbars.item("standard").controls
if objcommandbarcontrol.caption = objworksheet.cells(1, 1) then
objcommandbarcontrol.delete
end if
next objcommandbarcontrol
deletecommandbarpopup_end:
deletecommandbarpopup = true
exit function
deletecommandbarpopup_err:
deletecommandbarpopup = false
end function
public sub testmacro()
' 用途：提供一个完整性测试宏。
msgbox "这是测试宏。"
end sub
将以下代码添加到新空白工作簿的 thisworkbook 模块中：
private sub workbook_open()
if createcommandbarpopup = false then
msgbox "未能正确添加弹出菜单。"
else
msgbox "弹出菜单已成功添加。"
end if
end sub
private sub workbook_beforeclose(cancel as boolean)
if deletecommandbarpopup = false then
msgbox "未能正确删除弹出菜单。"
else
msgbox "弹出菜单已成功删除。"
end if
end sub
保存并关闭工作簿，然后重新打开该工作簿。请注意，“家务”弹出菜单已添加到“标准”工具栏中。还应注意，在关闭此工作簿时，“家务”弹出菜单将消失。
有关该技术的更详细版本，请参阅 excel 资深专家 (mvp) john walkenbach 提供的解决方案，网址为 http://j-walk.com/ss/excel/tips/tip53.htm（英文）。
