Workbook.VstoSmartTags, propriété (System 2007)
Mise à jour : Juillet 2008
Obtient le Microsoft.Office.Tools.SmartTagCollection associé au classeur.
Espace de noms : Microsoft.Office.Tools.Excel
Assembly : Microsoft.Office.Tools.Excel.v9.0 (dans Microsoft.Office.Tools.Excel.v9.0.dll)
Syntaxe
<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; }
Valeur de propriété
Type : Microsoft.Office.Tools.SmartTagCollection
Microsoft.Office.Tools.SmartTagCollection associé au classeur.
Exemples
L'exemple de code suivant crée une balise active qui affecte la couleur bleue à la police d'une cellule lorsque le terme "blue" est reconnu. L'exemple ajoute la balise active au classeur en utilisant la propriété VstoSmartTags.
Cette version est destinée à une personnalisation au niveau du document.
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);
}
Cette version est destinée à un complément d'application.
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);
}
Autorisations
- Confiance totale accordée à l'appelant immédiat. Ce membre ne peut pas être utilisé par du code d'un niveau de confiance partiel. Pour plus d'informations, consultez Utilisation de bibliothèques à partir de code d'un niveau de confiance partiel.
Voir aussi
Référence
Microsoft.Office.Tools.Excel, espace de noms
Autres ressources
Vue d'ensemble des balises actives
Historique des modifications
Date |
Historique |
Raison |
---|---|---|
Juillet 2008 |
Ajout d'une version de l'exemple de code pour un complément d'application. |
Modifications de fonctionnalités dans le SP1. |