Como sempre manter um gráfico visível ao rolar no Excel?

Se houver um gráfico inserido em uma planilha, ao rolar a planilha para baixo para visualizar os dados, o gráfico não poderá ser visto ao mesmo tempo, conforme mostrado na captura de tela abaixo, o que pode ser frustrante. Neste artigo, apresento um código VBA para manter um gráfico sempre visível, mesmo ao rolar a planilha para cima ou para baixo.

Sempre mantenha um gráfico visível

Sempre mantenha um gráfico visível

Para manter um gráfico visível enquanto rola a planilha, você pode aplicar o seguinte código VBA para resolver isso.

1. Clique com o botão direito do mouse na guia da planilha onde deseja que o gráfico fique visível e clique em Visualizar Código no menu de contexto. Veja a captura de tela:

2. Na janela Microsoft Visual Basic for Applications que aparece, cole o código abaixo no script em branco.

VBA: Mantenha o gráfico sempre visível

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. Salve e feche a caixa de diálogo, e o gráfico será movido para baixo ou para cima à medida que você clicar em qualquer célula.

Observações:

(1) No código VBA, Gráfico 2 é o nome do gráfico que você deseja manter visível; você pode alterá-lo conforme necessário.

(2) Este VBA não pode manter sempre um grupo de gráficos visíveis.

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!