Преоразмерете обекта до размер на диапазона във 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") С MyChart.Parent .Left = MyRange.LeR .Top. .Top .Width = MyRange.Width .Height = MyRange.Height End With End Sub
