NamedRange.Selected (Evento)
Se produce al seleccionar el control NamedRange.
Espacio de nombres: Microsoft.Office.Tools.Excel
Ensamblado: Microsoft.Office.Tools.Excel (en Microsoft.Office.Tools.Excel.dll)
Sintaxis
'Declaración
Event Selected As DocEvents_SelectionChangeEventHandler
event DocEvents_SelectionChangeEventHandler Selected
Comentarios
Este evento se provoca cuando la selección cambia al control NamedRange.
Ejemplos
En el ejemplo de código siguiente se muestra un controlador del evento Selected que muestra la dirección de una celda que está seleccionada en NamedRange.
Se trata de una versión para una personalización en el nivel del documento.
Private selectedEventRange As Microsoft.Office.Tools.Excel.NamedRange
Private Sub DisplaySelectedRange()
selectedEventRange = Me.Controls.AddNamedRange( _
Me.Range("B1", "E5"), "selectedEventRange")
AddHandler Me.selectedEventRange.Selected, _
AddressOf selectedEventRange_Selected
End Sub
Sub selectedEventRange_Selected(ByVal Target As _
Microsoft.Office.Interop.Excel.Range)
Dim selectedRange As String = Target.Address(, , _
Excel.XlReferenceStyle.xlA1, , )
MessageBox.Show(Me.Name & ": " & selectedRange & _
" was selected.")
End Sub
Microsoft.Office.Tools.Excel.NamedRange selectedEventRange;
private void DisplaySelectedRange()
{
selectedEventRange = this.Controls.AddNamedRange(
this.Range["B1", "E5"], "selectedEventRange");
this.selectedEventRange.Selected += new
Microsoft.Office.Interop.Excel.
DocEvents_SelectionChangeEventHandler(
selectedEventRange_Selected);
}
void selectedEventRange_Selected(
Microsoft.Office.Interop.Excel.Range Target)
{
string selectedRange = Target.get_Address(missing, missing,
Excel.XlReferenceStyle.xlA1, missing, missing);
MessageBox.Show(this.Name + ": " + selectedRange +
" was selected.");
}
Se trata de una versión para un complemento en el nivel de la aplicación.
Private selectedEventRange As NamedRange
Private Sub DisplaySelectedRange()
Dim NativeWorksheet As Microsoft.Office.Interop.Excel.Worksheet =
Globals.ThisAddIn.Application.ActiveSheet
Dim vstoWorksheet As Microsoft.Office.Tools.Excel.Worksheet =
Globals.Factory.GetVstoObject(NativeWorksheet)
selectedEventRange = vstoWorksheet.Controls.AddNamedRange( _
vstoWorksheet.Range("B1", "E5"), "selectedEventRange")
AddHandler Me.selectedEventRange.Selected, _
AddressOf selectedEventRange_Selected
End Sub
Sub selectedEventRange_Selected(ByVal Target As _
Microsoft.Office.Interop.Excel.Range)
Dim selectedRange As String = Target.Address(, , _
Excel.XlReferenceStyle.xlA1, , )
System.Windows.Forms.MessageBox.Show( _
Me.Application.ActiveWorkbook.Worksheets(1).Name & _
": " & selectedRange & " was selected.")
End Sub
NamedRange selectedEventRange;
private void DisplaySelectedRange()
{
Worksheet vstoWorksheet =
Globals.Factory.GetVstoObject(this.Application.ActiveWorkbook.Worksheets[1]);
selectedEventRange = vstoWorksheet.Controls.AddNamedRange(
vstoWorksheet.Range["B1", "E5"], "selectedEventRange");
selectedEventRange.Selected += new
Excel.DocEvents_SelectionChangeEventHandler(
selectedEventRange_Selected);
}
void selectedEventRange_Selected(
Microsoft.Office.Interop.Excel.Range Target)
{
string selectedRange = Target.get_Address(missing, missing,
Excel.XlReferenceStyle.xlA1, missing, missing);
Excel.Worksheet nativeWorksheet = (Excel.Worksheet)
this.Application.ActiveWorkbook.Worksheets[1];
System.Windows.Forms.MessageBox.Show(
nativeWorksheet.Name + ": " + selectedRange +
" was selected.");
}
Seguridad de .NET Framework
- Plena confianza para el llamador inmediato. Un código de confianza parcial no puede utilizar este miembro. Para obtener más información, vea Utilizar bibliotecas de código que no es de plena confianza.