Localizar todos os minigráficos em uma planilhaFind All the Sparklines on a Sheet

O exemplo de código a seguir usa uma caixa de listagem em um formulário de usuário para exibir todos os grupos de minigráficos na planilha ativa.The following code example uses a list box on a user form to display all of the sparkline groups on the active sheet. Quando você clica em um dos grupos de minigráficos na caixa de listagem, o grupo de minigráficos é selecionado na planilha.When you click one of the sparkline groups in the list box, the sparkline group is selected on the sheet.

Este exemplo requer um formulário de usuário chamado SparklineForm, uma caixa de listagem no formulário de usuário chamado SparklineListBoxe um botão no formulário de usuário chamado CloseBtn.This example requires a user form named SparklineForm, a list box on the user form named SparklineListBox, and a button on the user form named CloseBtn.

No editor do Visual Basic, insira um módulo e copie e cole o código a seguir.In the Visual Basic Editor, insert a Module and copy and paste the following code. Este código mostra o formulário do usuário.This code shows the user form.

Sub ShowUserForm()
    SparklineForm.Show
End Sub

No editor do Visual Basic, clique com o botão direito do mouse no formulário SparklineForm , selecione Exibir códigoe copie e cole o código a seguir.In the Visual Basic Editor, right-click the SparklineForm form, select View Code, and copy and paste the following code. O procedimento UserForm_Activate itera por todos os grupos de minigráficos na planilha ativa e obtém os endereços dos grupos de minigráficos usando a propriedade Address do objeto Range .The UserForm_Activate procedure iterates through all the sparkline groups on the active sheet and gets the addresses of the sparkline groups by using the Address property of the Range object. O endereço é então adicionado à caixa de listagem.The address is then added to the list box. O procedimento SparklineListBox_Click é chamado quando você clica no endereço de um grupo de minigráficos na caixa de listagem.The SparklineListBox_Click procedure is called when you click the address of a sparkline group in the list box. Este procedimento ativa o grupo de minigráficos selecionado na planilha usando o método Activate do objeto Range .This procedure activates the selected sparkline group on the sheet by using the Activate method of the Range object. O procedimento CloseBtn_Click é chamado quando você clica no botão no formulário do usuário e fecha o formulário do usuário.The CloseBtn_Click procedure is called when you click the button on the user form, and it closes the user form.

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

Confira tambémSee also

Objeto de objeto de MinigráficoSparklineGroup Object


[Programação com minigráficos no ExcelProgramming With Sparklines In Excel](../../../api/overview/Excel.md)

Suporte e comentáriosSupport and feedback

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação?Have questions or feedback about Office VBA or this documentation? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.