Workbook.VstoSmartTags Свойство (2007 System)

Статья
11/16/2008

Обновлен: Июль 2008

Получает объект Microsoft.Office.Tools.SmartTagCollection, связанный с книгой.

Пространство имен: Microsoft.Office.Tools.Excel
Сборка: Microsoft.Office.Tools.Excel.v9.0 (в Microsoft.Office.Tools.Excel.v9.0.dll)

Синтаксис

'Декларация
<BrowsableAttribute(False)> _
Public ReadOnly Property VstoSmartTags As SmartTagCollection
'Применение
Dim instance As Workbook
Dim value As SmartTagCollection

value = instance.VstoSmartTags

[BrowsableAttribute(false)]
public SmartTagCollection VstoSmartTags { get; }

Значение свойства

Тип: Microsoft.Office.Tools.SmartTagCollection
Объект Microsoft.Office.Tools.SmartTagCollection, связанный с книгой.

Примеры

В следующем примере кода создается смарт-тег, который задает синий цвет шрифта в ячейке при распознавании выражения "синий". В примере в книгу добавляется смарт-тег с помощью свойства VstoSmartTags.

Эта версия предназначена для настройки уровня документа.

WithEvents ColorText As Microsoft.Office.Tools.Excel.Action

Private Sub AddSmartTag()
    Dim ColorTag As New  _
        Microsoft.Office.Tools.Excel.SmartTag( _
        "www.contoso.com/Demo#DemoSmartTag", "Demo Smart Tag")

    Dim ColorText As New  _
        Microsoft.Office.Tools.Excel.Action("Color text blue")
    AddHandler ColorText.Click, AddressOf ColorText_Click

    ColorTag.Actions = _
        New Microsoft.Office.Tools.Excel.Action() {ColorText}
    ColorTag.Terms.Add("blue")
    Me.VstoSmartTags.Add(ColorTag)
End Sub

Private Sub ColorText_Click(ByVal sender As Object, _
    ByVal e As Microsoft.Office.Tools.Excel.ActionEventArgs)
    e.Range.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Blue)
End Sub

private void AddSmartTag()
{
    Microsoft.Office.Tools.Excel.SmartTag colorTag =
        new Microsoft.Office.Tools.Excel.SmartTag(
        "www.contoso.com/Demo#DemoSmartTag", "Demo Smart Tag");

    Microsoft.Office.Tools.Excel.Action colorText =
        new Microsoft.Office.Tools.Excel.Action("Color text blue");
    colorText.Click +=
        new Microsoft.Office.Tools.Excel.ActionClickEventHandler(
        colorText_Click);

    colorTag.Actions =
        new Microsoft.Office.Tools.Excel.Action[] { colorText };
    colorTag.Terms.Add("blue");
    this.VstoSmartTags.Add(colorTag);
}

private void colorText_Click(object sender,
    Microsoft.Office.Tools.Excel.ActionEventArgs e)
{
    e.Range.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Blue);
}

Эта версия предназначена для надстройки уровня приложения.

WithEvents ColorText As Microsoft.Office.Tools.Excel.Action

Private Sub AddSmartTag()
    Dim vstoWorkbook As Workbook = Me.Application.ActiveWorkbook.GetVstoObject()
    Dim ColorTag As New  _
        Microsoft.Office.Tools.Excel.SmartTag( _
        "www.contoso.com/Demo#DemoSmartTag", "Demo Smart Tag")

    Dim ColorText As New  _
        Microsoft.Office.Tools.Excel.Action("Color text blue")
    AddHandler ColorText.Click, AddressOf ColorText_Click

    ColorTag.Actions = _
        New Microsoft.Office.Tools.Excel.Action() {ColorText}
    ColorTag.Terms.Add("blue")
    vstoWorkbook.VstoSmartTags.Add(ColorTag)
End Sub

Private Sub ColorText_Click(ByVal sender As Object, _
    ByVal e As Microsoft.Office.Tools.Excel.ActionEventArgs)
    e.Range.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Blue)
End Sub

private void AddSmartTag()
{
    Microsoft.Office.Tools.Excel.SmartTag colorTag =
        new Microsoft.Office.Tools.Excel.SmartTag(
        "www.contoso.com/Demo#DemoSmartTag", "Demo Smart Tag");

    Microsoft.Office.Tools.Excel.Action colorText =
        new Microsoft.Office.Tools.Excel.Action("Color text blue");
    colorText.Click +=
        new Microsoft.Office.Tools.Excel.ActionClickEventHandler(
        colorText_Click);

    Workbook vstoWorkbook = this.Application.ActiveWorkbook.GetVstoObject();

    colorTag.Actions =
        new Microsoft.Office.Tools.Excel.Action[] {
            colorText };
    colorTag.Terms.Add("blue");
    vstoWorkbook.VstoSmartTags.Add(colorTag);
}

private void colorText_Click(object sender,
    Microsoft.Office.Tools.Excel.ActionEventArgs e)
{
    e.Range.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Blue);
}

Разрешения

Полное доверие для непосредственно вызывающего метода. Этот член не может быть использован частично доверенным кодом. Дополнительные сведения см. в разделе Использование библиотек из не вполне надежного кода.

См. также

Ссылки

Workbook Класс

Workbook - члены

Microsoft.Office.Tools.Excel - пространство имен

Другие ресурсы

Общие сведения о смарт-тегах

Журнал изменений

Дата	Журнал событий	Причина
Июль 2008	Добавлена версия кода для надстройки уровня приложения.	Изменение функции SP1.

Поделиться через