Excel VBA教程:Properties属性

返回一个 CustomProperties对象,该对象代表智能标记的属性。

expression.Properties

expression   必需。该表达式返回“应用于”列表中的对象之一。

说明

可用具有 Properties属性的 Add方法存储智能标记的附加元数据。

Excel VBA教程:Properties属性·示例

本示例向单元格 A1 中添加一个智能标记,接着向智能标记添加具有“Nasdaq”值的名为“Market”的附加元数据,然后将属性的值返回给用户。本示例假定主机系统与 Internet 相连。


Sub UseProperties()
    Dim strLink As String
    Dim strType As String
    ' Define smart tag variables.
    strLink = "urn:schemas-microsoft-com:smarttags#StockTickerSymbol"
    strType = "stockview"
    ' Enable smart tags to be embedded and recognized.
    ActiveWorkbook.SmartTagOptions.EmbedSmartTags = True
    Application.SmartTagRecognizers.Recognize = True
    ' Add a property for MSFT smart tag and define it's value.
    Range("A1").SmartTags.Add(strLink).Properties.Add _
        Name:="Market", Value:="Nasdaq"
    ' Notify the user of the smart tag's value.
    MsgBox Range("A1").SmartTags.Add(strLink).Properties("Market").Value
End Sub

上页:Excel VBA教程:PromptString属性 下页:Excel VBA教程:PropertyOrder属性

Excel VBA教程:Properties属性

Excel VBA教程:PropertyOrder属性 Excel VBA教程:PropertyParentField属性
Excel VBA教程:ProtectChartObject属性 Excel VBA教程:ProtectContents属性
Excel VBA教程:ProtectData属性 Excel VBA教程:ProtectDrawingObjects属性
Excel VBA教程:ProtectFormatting属性 Excel VBA教程:ProtectGoalSeek属性
Excel VBA教程:Protection属性 Excel VBA教程:ProtectionMode属性
Excel VBA教程:ProtectScenarios属性 Excel VBA教程:ProtectSelection属性
Excel VBA教程:ProtectStructure属性 Excel VBA教程:ProtectWindows属性
Excel VBA教程:PublishObjects属性 Excel VBA教程:QueryTable属性
Excel VBA教程:QueryTables属性 Excel VBA教程:QueryType属性
Excel VBA教程:RadarAxisLabels属性 Excel VBA教程:Range属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号