全部显示返回命令栏的类型。MsoBarType 类型，只读。
| MsoBarType 可以为下列 MsoBarType 常量之一。 |
| msoBarTypeMenuBar |
| msoBarTypeNormal |
| msoBarTypePopup |
expression.Type
expression 必需。该表达式返回一个 CommandBar 对象。
Type 属性应用于 CommandBarButton、CommandBarComboBox、CommandBarControl 和 CommandBarPopup 对象的情形。
返回命令栏控件的类型。MsoControlType 类型，只读。
| MsoControlType 可以为下列 MsoControlType 常量之一。 |
| msoControlActiveX |
| msoControlAutoCompleteCombo |
| msoControlButton |
| msoControlButtonDropdown |
| msoControlButtonPopup |
| msoControlComboBox |
| msoControlCustom |
| msoControlDropdown |
| msoControlEdit |
| msoControlExpandingGrid |
| msoControlGauge |
| msoControlGenericDropdown |
| msoControlGraphicCombo |
| msoControlGraphicDropdown |
| msoControlGraphicPopup |
| msoControlGrid |
| msoControlLabel |
| msoControlLabelEx |
| msoControlOCXDropdown |
| msoControlPane |
| msoControlPopup |
| msoControlSpinner |
| msoControlSplitButtonMRUPopup |
| msoControlSplitButtonPopup |
| msoControlSplitDropdown |
| msoControlSplitExpandingGrid |
| msoControlWorkPane |
expression.Type
expression 必需。该表达式返回上面对象之一。
返回对应于 SearchScope 对象类型的值。类型指定 FileSearch 对象的 Execute 方法进行文件搜索的区域。MsoSearchIn 类型，只读。
| MsoSearchIn 可以为下列 MsoSearchIn 常量之一。 |
| msoSearchInCustom |
| msoSearchInMyComputer |
| msoSearchInMyNetworkPlaces |
| msoSearchInOutlook |
expression.Type
expression 必需。该表达式返回一个 SearchScope 对象。
Type 属性应用于 DocumentProperty 对象的情形。
返回或设置文档属性类型。对于内置文档属性为只读，对于自定义文档属性为可读写。
expression.Type
expression 必需。该表达式返回一个 DocumentProperty 对象。
返回值必须为 MsoDocProperties 常量。
| MsoDocProperties 可以为下列 MsoDocProperties 常量之一。 |
| msoPropertyTypeBoolean |
| msoPropertyTypeDate |
| msoPropertyTypeFloat |
| msoPropertyTypeNumber |
| msoPropertyTypeString |
本示例查找名为 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 对象。
Sub DisplayPropertyInfo(dp As DocumentProperty)
MsgBox "value = " & dp.Value & Chr(13) & _
"type = " & dp.Type & Chr(13) & _
"name = " & dp.Name
End Sub