Sayfadaki Grafikleri Yeniden Boyutlandırma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub Resize_Charts()
Dim i As Integer
For i = 1 To ActiveSheet.ChartObjects.Count
With ActiveSheet.ChartObjects(i)
.Width = 300
.Height = 200
End With
Next i
End SubAçıklama
Tüm grafiği aynı boyutta yapın. Bu makro kodu, tüm çizelgeleri aynı boyutta yapmanıza yardımcı olacaktır. Grafiklerin yüksekliğini ve genişliğini makro kodunda değiştirerek değiştirebilirsiniz.Faydalanılması temennisiyle
