Buscar todos los minigráficos en una hoja

En el ejemplo de código siguiente se usa un cuadro de lista en un formulario de usuario para mostrar todos los grupos de minigráficos en la hoja activa. Al hacer clic en uno de los grupos de minigráficos del cuadro de lista, el grupo de minigráficos se selecciona en la hoja.

En este ejemplo se requiere un formulario de usuario denominado SparklineForm, un cuadro de lista en el formulario de usuario denominado SparklineListBox y un botón en el formulario de usuario denominado CloseBtn.

En el Editor de Visual Basic, inserte un módulo y copie y pegue el código siguiente. Este código muestra el formulario de usuario.

Sub ShowUserForm()
    SparklineForm.Show
End Sub

En el Editor de Visual Basic, haga clic con el botón derecho en el formulario SparklineForm , seleccione Ver código y copie y pegue el código siguiente. El procedimiento de UserForm_Activate recorre en iteración todos los grupos de minigráficos de la hoja activa y obtiene las direcciones de los grupos de minigráficos mediante la propiedad Address del objeto Range . A continuación, la dirección se agrega al cuadro de lista. Se llama al procedimiento SparklineListBox_Click al hacer clic en la dirección de un grupo de minigráficos en el cuadro de lista. Este procedimiento activa el grupo de minigráficos seleccionado en la hoja mediante el método Activate del objeto Range . Se llama al procedimiento CloseBtn_Click al hacer clic en el botón del formulario de usuario y se cierra el formulario de usuario.

Private Sub UserForm_Activate()
    'The sparkline group
    Dim oSparkGroup As SparklineGroup
    
    'Loop through all the sparkline groups on the sheet
    For Each oSparkGroup In ActiveSheet.Range("A:XFD").SparklineGroups
        'For each sparkline group found, add the address to the listbox
        SparklineListBox.AddItem oSparkGroup.Location.Address(, , , True)
    Next oSparkGroup
End Sub

Private Sub SparklineListBox_Click()
    'Activate the selected range that has the sparklines
    Range(SparklineListBox.Value).Activate
End Sub

Private Sub CloseBtn_Click()
    'Close the userform
    Unload Me
End Sub

Consulte también

Programación de objetos SparklineGroupcon minigráficos en Excel

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.