Atualização automatica dos marcadores num grafico de linhas

[Jorge Cabral]

Boa noite

Tenho uma planilha com a evolução dos resultados de cada equipa ao longo das rodadas de um campeonato de Voleibol.

Gostava de saber se é possível de uma forma automática atualizar os símbolos dos marcadores do gráfico com o logotipo da equipa. O gráfico é de linhas com Barra de Rolagem.

Abraço
Jorge Cabral

[Jorge Cabral]

Nenhuma ajuda por aqui?

[deciog]

Jorge Cabral

Não lembro de qual fórum eu vi este exemplo, mas o credito não é meu

Olha modelo

Décio

[Jorge Cabral]

Jorge Cabral

Não lembro de qual fórum eu vi este exemplo, mas o credito não é meu

Olha modelo

Décio

Esse exemplo é o meu... http://gurudoexcel.com/forum/viewtopic.php?f=10&t=2515

Não resolve o que pretendo, já que se as equipas mudarem tenho que atualizar manualmente todos os marcadores.

Obrigado na mesma Décio

[netocasaroli]

Jorge,

Isso deverá ser através de macro. O código à partir do qual você terá que desenvolver sua rotina é esse:

Código: Selecionar todos

Sub MudaMarcador()

    Dim sLocal As String
    
    sLocal = [INSIRA O ENDEREÇO DA IMAGEM]
    
    ActiveSheet.ChartObjects("Gráfico 39").Activate
    ActiveChart.FullSeriesCollection(1).Select
    Selection.Format.Fill.UserPicture sLocal
    
End Sub

Você deverá usar o evento Change da planilha, definindo a célula O4 como Target, para chamar a Sub MudaMarcador. Conforme muda o resultado da célula (para isso pode usar Select Case, ou If...ElseIf...) a rotina buscará a imagem para o marcador em algum lugar do computador, mas para isso, você deve informar na rotina o local de cada figura. Esse código servirá só de base. Você vai ter que adaptá-lo conforme a sua necessidade.

Espero ter ajudado.

[Jorge Cabral]

Jorge,

Isso deverá ser através de macro. O código à partir do qual você terá que desenvolver sua rotina é esse:

Código: Selecionar todos

Sub MudaMarcador()

    Dim sLocal As String
    
    sLocal = [INSIRA O ENDEREÇO DA IMAGEM]
    
    ActiveSheet.ChartObjects("Gráfico 39").Activate
    ActiveChart.FullSeriesCollection(1).Select
    Selection.Format.Fill.UserPicture sLocal
    
End Sub

Você deverá usar o evento Change da planilha, definindo a célula O4 como Target, para chamar a Sub MudaMarcador. Conforme muda o resultado da célula (para isso pode usar Select Case, ou If...ElseIf...) a rotina buscará a imagem para o marcador em algum lugar do computador, mas para isso, você deve informar na rotina o local de cada figura. Esse código servirá só de base. Você vai ter que adaptá-lo conforme a sua necessidade.

Espero ter ajudado.

netocasaroli

Muito obrigado por me tentar ajudar, mas o problema é que eu não percebo nada de VBA, por isso ou pega na planilha e tenta desenvolver toda a rotina em VBA nela, sendo que os Logos dos times estão nas células N4:N15; ou eu não vou conseguir entender como fazer.

Muito obrigado
Jorge Cabral