Spisie treści
Zmień rozmiar obiektu na rozmiar zakresu w VBA
Możesz zmienić rozmiar obiektu, takiego jak Obrazy, Autokształty i Wykresy, tak aby miał taki sam rozmiar jak Zakres. Aby to zrobić, ustaw obiekty .Left .Top .Width i .Height równe odpowiednim właściwościom Range.
Poniższy przykład dopasowuje wykres do zakresu B2:D6
Kod VBA użyty do tego celu:
Sub SizeChart2Range() Dim MyChart As Chart Dim MyRange As Range Ustaw MyChart = ActiveSheet.ChartObjects(1).Chart Ustaw MyRange = Sheet1.Range("B2:D6") With MyChart.Parent .Left = MyRange.Left .Top = MyRange .Top .Width = MojaZakres.Szerokość .Height = MojaZakres.Wysokość Koniec z końcem Sub