Изменить размер объекта до размера диапазона в VBA
Вы можете изменить размер объекта, например изображений, автофигур и диаграмм, таким же, как и диапазон. Для этого установите свойства объектов .Left .Top .Width и .Height равными соответствующим свойствам Range.
В следующем примере размер диаграммы соответствует диапазону B2: D6
Код VBA, используемый для этого:
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