VBAのCustomPropertiesコレクション

CustomPropertiesコレクション

CustomPropertiesコレクションについての解説になります。

CustomPropertiesコレクションとは

CustomPropertiesコレクションは、追加情報を表す CustomProperty オブジェクトのコレクションです。この情報は、XML のメタデータとして使用できます。

CustomProperties コレクションを取得するには、SmartTag オブジェクトの Properties プロパティ、または Worksheet オブジェクトの CustomProperties プロパティを使用します。

CustomProperties コレクションを取得したら、作業対象に応じてワークシートおよびスマートタグにメタデータを追加することができます。

ワークシートにメタデータを追加するには、Add メソッドで CustomProperties プロパティを使用します。

次の使用例は、この機能の紹介です。次の使用例は、アクティブワークシートに識別子情報を追加し、その名前と値を返します。


Sub CheckCustomProperties()
    Dim wksSheet1 As Worksheet
    Set wksSheet1 = Application.ActiveSheet
    ' ワークシートにメタデータを追加します。
    wksSheet1.CustomProperties.Add _
        Name:="Market", Value:="Nasdaq"
    ' メタデータを表示します。
    With wksSheet1.CustomProperties.Item(1)
        MsgBox .Name & vbTab & .Value
    End With
End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

スマートタグにメタデータを追加するには、Add メソッドで Properties プロパティを使用します。次の使用例は、この機能の紹介です。次の使用例は、セル A1 に "MSFT" というスマートタグを追加し、値が "Nasdaq" の "Market" というエクストラメタデータをそのスマートタグに追加して、プロパティの値を返します。次の使用例では、このコード例の実行時にホストシステムがインターネットに接続していて、Excel で "Stock Ticker Symbol Recognizer" というチェック済みの認識機能が有効になっているものとします。


Sub UseProperties()
    Dim strLink As String
    Dim strType As String
    ' スマート タグ変数を定義します。
    strLink = "urn:schemas-microsoft-com:smarttags#stocktickerSymbol"
    strType = "stockview"
    Range("A1").Formula = "MSFT"
    ' MFST スマート タグに使用するプロパティを追加し、その値を定義します。
    Range("A1").SmartTags.Add(strLink).Properties.Add _
        Name:="Market", Value:="Nasdaq"
    ' スマート タグの値を表示します。
    MsgBox Range("A1").SmartTags.Add(strLink).Properties("Market").Value
End Sub

※ドラッグ(スワイプ)すると全体を確認できます。