Excel Grafico Flutuando na Planilha

[paulocezarpicos]

Boa Tarde amigos.

 

Tenho na minha residência uma geração de energia solar, e fiz para meu uso uma planilha de controle de geração e consumo de energia. Na minha planilha tem a aba "geral" onde insiro as leituras e tem outra aba (Dados) onde se encontram as células com as formulas e um gráfico (anexo). Na aba geral tem um gráfico vinculado com o gráfico existente na aba Dados. Até aí tudo bem. Só que eu gostaria que esse gráfico fosse baixando junto o cursor, isto é, a medida que eu fosse baixando o cursor, o gráfico fosse baixando também.

 

Se alguém tiver disponibidade de tempo para me ajudar ficaria grato.

 

Atenciosamente,

 

Paulo Cézar

Testando.xlsx

[Wendell Menezes]

Boa noite,

 

O mais próximo disso que posso sugerir é clicar com o botão direto do mouse na aba "geral", ver código, e colar o script abaixo:

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With ActiveWindow.VisibleRange
    ActiveSheet.Shapes("Agrupar 10").Top = .Top + 5
End With

End Sub

 

Isso irá fazer com o que o gráfico desça ou suba após você clicar em alguma linha. Não é exatamente o que você queria (scroll).

 

[paulocezarpicos]

Boa noite Wendell.

 

Apareceu a msg "O ÍTEM EXPECIFICADO NÃO FOI ENCONTRADO". Deu alguma coisa errada.

[Wendell Menezes]

Boa noite Paulo,

 

Segue arquivo com o código já implementado.

 

 

Testando.zip

[paulocezarpicos]

Boa noite Wendell.

 

Mistério..... Roda a sua planilha, mas a minha dá o mesmo erro(anexo). Não sei o que fazer. E é exatamente o que eu estava pensando que ficasse, mas infelizmente não está dando certo

[Wendell Menezes]

Boa noite,

 

Só para confirmar, o erro ocorre nessa linha?

 

ActiveSheet.Shapes("Agrupar 10").Top = .Top + 5

 

Se for você pode tentar trocar "Agrupar 10", que o grupo do gráfico com a barra de rolagem para somente o nome do gráfico:

 

 

 

Pra mim continua funcionando, mas nesce caso somente gráfico iria mover:

 

[paulocezarpicos]

Boa noite Wendell

 

Perfeito!!! Muito obrigado