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

Por exemplo, criou um gráfico e colocou-o aleatoriamente na folha de cálculo, tal como ilustrado na imagem seguinte. Agora, apresentamos-lhe um código VBA que permite mover rapidamente o gráfico para uma posição absoluta e precisa, com toda a facilidade.

1. Selecione o gráfico ao qual pretende definir uma posição absoluta e prima as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código VBA na nova janela do 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

Nota: No código acima, Set xRg = Range("D1:J13") indica que o gráfico será movido e posicionado no intervalo D1:J13. Pode ajustar este intervalo conforme as suas necessidades.

3. Prima a tecla F5 ou clique no botão Executar para executar este código VBA.

Agora verá que o gráfico foi posicionado exatamente onde indicou no código VBA. Veja a imagem:

Se tiver o Kutools para Excel instalado, pode utilizar a sua incrível ferramenta de gráficos – Definir Posição Absoluta do Gráfico – para mover e redimensionar um gráfico para um intervalo limitado no Excel.

1. Selecione o gráfico ao qual pretende definir uma posição absoluta e clique em Kutools > Gráficos > Ferramentas de Gráfico > Definir Posição Absoluta do Gráfico.

2. Na caixa de diálogo que surge, indique a posição para a qual pretende mover o gráfico e clique no botão OK.

Agora, o gráfico selecionado é movido para a posição especificada e redimensionado simultaneamente de acordo com o intervalo definido. Veja a imagem: