Inhaltsverzeichnis
Ändern Sie die Größe des Objekts auf die Bereichsgröße in VBA
Sie können ein Objekt wie Bilder, Autoshapes und Diagramme so skalieren, dass es dieselbe Größe wie ein Bereich hat. Setzen Sie dazu die Eigenschaften der Objekte .Left .Top .Width und .Height gleich den jeweiligen Eigenschaften eines Ranges.
Im folgenden Beispiel wird ein Diagramm auf den Bereich B2:D6 . skaliert
Der dazu verwendete VBA-Code:
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
