VBAの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オブジェクトの親オブジェクト一覧

親オブジェクト名	内容
Chartオブジェクト	ブック内のグラフを表します。ChartObject オブジェクトに含まれている埋め込みグラフか、独立したグラフシートのどちらかのグラフです。
Worksheetオブジェクト