Como definir a posição absoluta de um gráfico no Excel?

Por exemplo, você criou um gráfico e o posicionou aleatoriamente na planilha, conforme mostrado na captura de tela abaixo. Agora, vou introduzir um VBA para mover rapidamente o gráfico para uma posição precisa e absoluta com facilidade.

1. Selecione o gráfico para o qual você definirá a posição absoluta e pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte VBA na nova janela de módulo.

VBA: Definir a posição absoluta de um gráfico no Excel

Sub Test()
Dim xRg As Range
Dim xChart As ChartObject
Set xRg = Range("D1:J13")
Set xChart = ActiveSheet.ChartObjects(1)
With xChart
.Top = xRg(1).Top
.Left = xRg(1).Left
.Width = xRg.Width
.Height = xRg.Height
End With
End Sub

Observação: No código acima, Set xRg = Range("D1:J13") significa mover e colocar o gráfico no Intervalo D1:J13. Você pode alterar o intervalo conforme necessário.

3. Pressione a tecla F5 ou clique no botão Executar para executar este VBA.

Agora você verá que o gráfico foi movido para a posição exata que você especificou no VBA. Veja a captura de tela:

Se você tiver o Kutools para Excel instalado, poderá aplicar sua incrível ferramenta de gráficos – Definir Posição Absoluta do Gráfico para mover e redimensionar um gráfico para um intervalo específico no Excel.

1. Selecione o gráfico que você deseja posicionar de forma absoluta e clique Kutools > Gráficos > Ferramentas de Gráfico > Definir Posição Absoluta do Gráfico.

2. Na caixa de diálogo que aparece, especifique a posição para onde você moverá o gráfico e clique no botão Ok botão.

Agora, o gráfico selecionado é movido para a posição especificada e redimensionado para o intervalo especificado simultaneamente. Veja a captura de tela: