Como manter sempre um gráfico visível enquanto navega pela folha do Excel?
Se houver um gráfico inserido numa folha, ao deslocar a folha para baixo para visualizar os dados, o gráfico deixa de estar visível em simultâneo — tal como ilustrado na imagem seguinte — o que é bastante inconveniente. Neste artigo, apresento um código VBA que mantém sempre o gráfico à vista, mesmo ao percorrer a folha para cima ou para baixo.
 |
 |
 |
Manter sempre um gráfico à vista
Manter sempre um gráfico à vista
Para manter um gráfico sempre à vista enquanto navega pela folha, basta aplicar o código VBA indicado abaixo.
1. Clique com o botão direito do rato no separador da folha em que pretende manter o gráfico visível e selecione Ver Código no menu de contexto. Veja a imagem:
2. Na janela que surge do Microsoft Visual Basic for Applications, cole o seguinte código no espaço em branco do script.
VBA: Manter sempre o gráfico à vista
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice20161111
Dim CPos As Double
Application.ScreenUpdating = False
CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveSheet.Shapes("Chart 2").Top = CPos
ActiveWindow.Visible = False
Application.ScreenUpdating = True
End Sub
3. Guarde e feche a caixa de diálogo; o gráfico mover-se-á então para cima ou para baixo sempre que clicar numa célula.
Notas:
(1) No código VBA, «Chart 2» é o nome do gráfico que pretende manter visível; pode alterá-lo conforme necessário.
(2) Este código VBA não permite manter sempre um grupo de gráficos visível.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos