VBAのIE制御

SmartTagOptionsオブジェクトについての解説になります。

目次

• SmartTagOptionsオブジェクトとは
• シート見出しの色を設定するサンプルコード
  • 実行結果
  • 解説
• SmartTagOptionsオブジェクトの親オブジェクト一覧
• SmartTagOptionsオブジェクトのプロパティ一覧

SmartTagOptionsオブジェクトとは

SmartTagOptionsオブジェクトは、スマート タグで実行できるオプションを表します。

SmartTagOptions オブジェクトを取得するには、Workbook オブジェクトの SmartTagOptions プロパティを使用します。

SmartTagOptions オブジェクトを取得したら、次に示すプロパティを使用して、スマート タグのオプションの表示や、アクティブ ブックにスマート タグが埋め込まれているかどうかを調べることができます。

EmbedSmartTags
DisplaySmartTags
次の使用例は、アクティブ ブックへのスマート タグの埋め込みを可能にし、スマート タグの設定の表示をチェックします。

Sub CheckDisplayOptions()

    'アクティブ ブックへのスマート タグの埋め込みを可能にします。
    ActiveWorkbook.SmartTagOptions.EmbedSmartTags = True

    ' スマート タグの表示オプションをチェックします。
    Select Case ActiveWorkbook.SmartTagOptions.DisplaySmartTags
        Case xlButtonOnly
            MsgBox "スマート タグのボタンだけが表示されます。"
        Case xlDisplayNone
            MsgBox "スマート タグで表示されるものはありません。"
        Case xlIndicatorAndButton
            MsgBox "スマート タグのボタンとインジケータが表示されます。"
    End Select

End Sub

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

シート見出しの色を設定するサンプルコード

こちらでは、シート見出しの色を設定するマクロになります。

Sub sample()

    Sheets("Sheet1").Tab.ColorIndex = 3

End Sub

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

実行結果

解説

こちらのマクロは、SmartTagOptionsオブジェクトのColorIndexプロパティを利用しています。

SmartTagOptionsオブジェクトの親オブジェクト一覧

SmartTagOptionsオブジェクトのプロパティ一覧

• SmartTagOptionsオブジェクト(ColorIndexプロパティ)のプロパティ