Office VBA教程:OLEUsage属性

返回或设置这样的 OLE 客户和 OLE 服务器角色,当两个 Microsoft Office 应用程序进行合并时将按照命令栏控件的角色进行处理。 MsoControlOLEUsage 类型,可读写。

MsoControlOLEUsage 可为以下 MsoControlOLEUsage 常量之一:
msoControlOLEUsageBoth
msoControlOLEUsageClient
msoControlOLEUsageNeither
msoControlOLEUsageServer

说明

本属性允许用户在某 Office 应用程序与另一个 Office 应用程序合并时,指定加载应用程序的各个命令栏控件在该 Office 应用程序中的表示方法。如果客户端和服务器均提供命令栏,那么命令栏控件将逐个嵌入客户端。系统将从服务器中略去标记为只用于客户端(或既不用于客户也不用于服务器)的自定义控件,而从客户端中略去标记为只用于服务器(或既不用于客户端也不用于服务器)的控件。剩下的控件再进行合并。

如果要合并的应用程序之一不是 Office 应用程序,那么就进行通用 OLE 菜单合并,该过程将由OLEMenuGroup属性控制。

VBA示例

本示例可实现的功能为:向命令栏“Tools”中添加一个新按钮并设置其 OLEUsage属性。


Set myControl = CommandBars("Tools").Controls _
    .Add(Type:=msoControlButton,Temporary:=True)
myControl.OLEUsage = msoControlOLEUsageNeither

上页:Office VBA教程:OLEMenuGroup属性 下页:Office VBA教程:On属性

Office VBA教程:OLEUsage属性

Office VBA教程:On属性 Office VBA教程:OnAction属性
Office VBA教程:Parameter属性 Office VBA教程:Parent属性
Office VBA教程:Path属性 Office VBA教程:Picture属性
Office VBA教程:Position属性 Office VBA教程:Priority属性
Office VBA教程:Private属性 Office VBA教程:ProgId属性
Office VBA教程:PropertyTests属性 Office VBA教程:ProportionalFont属性
Office VBA教程:ProportionalFontSize属性 Office VBA教程:Protection属性
Office VBA教程:Reduced属性 Office VBA教程:RowCount属性
Office VBA教程:RowIndex属性 Office VBA教程:ScopeFolder属性
Office VBA教程:ScopeFolders属性 Office VBA教程:ScriptText属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号