Πίνακας περιεχομένων
Αλλαγή μεγέθους αντικειμένου σε μέγεθος εύρους σε VBA
Μπορείτε να μεγεθύνετε ένα αντικείμενο όπως Εικόνες, Αυτόματα σχήματα και γραφήματα για να έχουν το ίδιο μέγεθος με ένα Εύρος. Για να το κάνετε αυτό, ορίστε τα αντικείμενα .Αριστερά .Κορυφή .Πλάτος και .Hψος ιδιοτήτων ίσες με τις αντίστοιχες ιδιότητες ενός εύρους.
Το ακόλουθο παράδειγμα μεγεθύνει ένα γράφημα στο εύρος 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
