Type 属性
全部显示
Type 属性应用于 CommandBar 对象的情形。
返回命令栏的类型。MsoBarType 类型,只读。
MsoBarType 可以为下列 MsoBarType 常量之一。msoBarTypeMenuBarmsoBarTypeNormalmsoBarTypePopupexpression.Type
expression 必需。该表达式返回一个 CommandBar 对象。
Type 属性应用于 CommandBarButton、CommandBarComboBox、CommandBarControl 和 CommandBarPopup 对象的情形。
返回命令栏控件的类型。MsoControlType 类型,只读。
MsoControlType 可以为下列 MsoControlType 常量之一。msoControlActiveXmsoControlAutoCompleteCombomsoControlButtonmsoControlButtonDropdownmsoControlButtonPopupmsoControlComboBoxmsoControlCustommsoControlDropdownmsoControlEditmsoControlExpandingGridmsoControlGaugemsoControlGenericDropdownmsoControlGraphicCombomsoControlGraphicDropdownmsoControlGraphicPopupmsoControlGridmsoControlLabelmsoControlLabelExmsoControlOCXDropdownmsoControlPanemsoControlPopupmsoControlSpinnermsoControlSplitButtonMRUPopupmsoControlSplitButtonPopupmsoControlSplitDropdownmsoControlSplitExpandingGridmsoControlWorkPaneexpression.Type
expression 必需。该表达式返回上面对象之一。
Type 属性应用于 SearchScope 对象的情形。
返回对应于 SearchScope 对象类型的值。类型指定 FileSearch 对象的 Execute 方法进行文件搜索的区域。MsoSearchIn 类型,只读。
MsoSearchIn 可以为下列 MsoSearchIn 常量之一。msoSearchInCustommsoSearchInMyComputermsoSearchInMyNetworkPlacesmsoSearchInOutlookexpression.Type
expression 必需。该表达式返回一个 SearchScope 对象。
Type 属性应用于 DocumentProperty 对象的情形。
返回或设置文档属性类型。对于内置文档属性为只读,对于自定义文档属性为可读写。
expression.Type
expression 必需。该表达式返回一个 DocumentProperty 对象。
说明
返回值必须为 MsoDocProperties 常量。
MsoDocProperties 可以为下列 MsoDocProperties 常量之一。msoPropertyTypeBooleanmsoPropertyTypeDatemsoPropertyTypeFloatmsoPropertyTypeNumbermsoPropertyTypeString示例
应用于 CommandBar 对象的情形。
本示例查找名为 Custom 的命令栏上的第一个控件。本示例使用Type 属性判断该控件是否为按钮。如果控件为按钮,本示例复制“常用”工具栏上“复制”按钮的表面并粘贴到控件。
Set oldCtrl = CommandBars("Custom").Controls(1)
If oldCtrl.Type = msoControlButton Then
Set newCtrl = CommandBars.FindControl(Type:= _
MsoControlButton, ID:= _
CommandBars("Standard").Controls("Copy").ID)
NewCtrl.CopyFace
OldCtrl.PasteFace
End If
应用于 DocumentProperty 对象的情形。
本示例显示文档属性的名称、类型和值。必须向过程传递一个有效的DocumentProperty 对象。
Sub DisplayPropertyInfo(dp As DocumentProperty)
MsgBox "value = " & dp.Value & Chr(13) & _
"type = " & dp.Type & Chr(13) & _
"name = " & dp.Name
End Sub