Proprietà Workbook.VstoSmartTags (System 2007)
Aggiornamento: Luglio 2008
Ottiene l'oggetto Microsoft.Office.Tools.SmartTagCollection associato alla cartella di lavoro.
Spazio dei nomi: Microsoft.Office.Tools.Excel
Assembly: Microsoft.Office.Tools.Excel.v9.0 (in Microsoft.Office.Tools.Excel.v9.0.dll)
Sintassi
<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; }
Valore proprietà
Tipo: Microsoft.Office.Tools.SmartTagCollection
Oggetto Microsoft.Office.Tools.SmartTagCollection associato alla cartella di lavoro.
Esempi
Nell'esempio di codice riportato di seguito viene creato uno smart tag che imposta sul blu il colore del tipo di carattere di una cella al riconoscimento del termine "blue". Lo smart tag viene aggiunto alla cartella di lavoro utilizzando la proprietà VstoSmartTags.
Questa versione è per una personalizzazione a livello di documento.
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);
}
Questa versione è per un componente aggiuntivo a livello di applicazione.
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);
}
Autorizzazioni
- Attendibilità totale per il chiamante immediato. Impossibile utilizzare questo membro in codice parzialmente attendibile. Per ulteriori informazioni, vedere Utilizzo di librerie da codice parzialmente attendibile.
Vedere anche
Riferimenti
Spazio dei nomi Microsoft.Office.Tools.Excel
Altre risorse
Cenni preliminari sugli smart tag
Cronologia delle modifiche
Date |
History |
Motivo |
---|---|---|
Luglio 2008 |
Aggiunta una versione dell'esempio di codice per un componente aggiuntivo a livello di applicazione. |
Modifica di funzionalità in SP1. |