Redimensionar objeto para tamanho de intervalo em VBA
Você pode dimensionar um objeto como imagens, formas automáticas e gráficos para que tenham o mesmo tamanho de um intervalo. Para fazer isso, defina as propriedades dos objetos .Left .Top .Width e .Height iguais às respectivas propriedades de um Range.
O exemplo a seguir dimensiona um gráfico para o intervalo B2: D6
O código VBA usado para fazer isso:
Sub SizeChart2Range () Dim MyChart As Chart Dim MyRange As Range Set MyChart = ActiveSheet.ChartObjects (1) .Chart Set MyRange = Sheet1.Range ("B2: D6") With MyChart.Parent .Left = MyRange.Left .Top = MyRange .Top .Width = MyRange.Width .Height = MyRange.Height End With End Sub
