Αλλαγή μεγέθους αντικειμένου σε μέγεθος εύρους - Παραδείγματα κώδικα VBA

Αλλαγή μεγέθους αντικειμένου σε μέγεθος εύρους σε 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