Programmatically resize all graphs in a sheet

[neodjandre]

Hello,

how can i resize all graphs in a sheet to a certain size using VBA?

thanking you in advance,
Andy

 

[Case_Germany]

Hi,

try...

Public Sub Chart_Size()
    Dim objChart As ChartObject
    Dim intWidth As Integer
    Dim intHeight As Integer
    intWidth = Application.InputBox("Breite", "Breite", "120", , , , , 1)
    intHeight = Application.InputBox("Höhe", "Höhe", "100", , , , , 1)
    For Each objChart In ActiveSheet.ChartObjects
        objChart.Width = intWidth
        objChart.Height = intHeight
    Next objChart
End Sub

Case_Germany

 

[neodjandre]

thanks that will do..