Como faço para retornar os nomes “Series” e “Point” de um gráfico de colunas empilhadas no Excel usando o VBA

Question

Estou explorando o VBA no Excel e gostaria de saber como obter os nomes das séries e pontos no meu gráfico de colunas empilhadas. Se você tiver uma coluna empilhada, você pode passar o mouse sobre qualquer coluna e o Excel exibirá uma pequena caixa de texto com "Série" < nome-da-série > " Ponto "< point-name >" Valor: ## '.

Eu gostaria de poder clicar ou passar o mouse sobre qualquer coluna no gráfico e executar o código do VBA para encontrar os nomes de série e ponto. A tarefa mais desafiadora para mim é acionar o script VBA com um clique do mouse ou com o mouse e identificar a parte ativa no gráfico ativo.

Qualquer ajuda é muito apreciada!

    

Answer 1

Não é uma tarefa com uma resposta fácil, pois você não pode acionar uma macro ao clicar em elementos de plotagem.

Geralmente, o VB é configurado para criar gráficos, em vez de lê-los.

Código como:

Sub macro()
 If TypeName(Selection) = "Series" Then
    Set ch = ActiveChart.SeriesCollection
    For I = 1 To ch.Count
        If ch(I).Name = Selection.Name Then MsgBox "Series is " & Selection.Name
    Next I
  End If
End Sub

de link lhe dará o nome da série selecionada. Você precisaria configurar uma tecla de atalho ou um botão para executá-lo. Eu não vi código semelhante para pontos individuais.

Mas você tem certeza de que precisa realizar essa tarefa com o VB?

Se eu passar o mouse sobre um ponto no Excel 2010, o pop-up aparecerá exatamente como você deseja:

    

Answer 2

Como para fazer seu vba executar: Você cria um evento chart_mousemove, na verdade, no próprio gráfico (abra a página do gráfico no editor de macro / vba (alt-F11) quando estiver no gráfico) e, em seguida, ele será executado vez que você move o mouse sobre o gráfico. É como usar eventos em formulários do Windows, se você já fez isso.

Por favor, veja esta página para mais detalhes link