Se me ha ido el problema usando la instrucción Range (graph).select antes de exportarlo (me cercioré de que los gráficos ocupen celdas enteras, estirándolos con left Alt key.

For i = 1 To 8
        Set ch = .ChartObjects("GRAPH-5" & i)
        ActiveSheet.Range(ch.TopLeftCell, ch.BottomRightCell).Select
        ch.Width = IIf(ch.Name = "GRAPH-57", 620, 1976)
        ch.Height = IIf(ch.Name = "GRAPH-57", 620, 1221)
        rutaDirectorio = rutaDirectorio & ch.Name & ".jpg"
        ch.Chart.Export rutaDirectorio
        rutaDirectorio = Worksheets("DEFINITIONS").Range("C29").Value
    Next i