Cubrir rango de celdas con grafico

Hola a todos:
Estoy haciendo un programa que grafica una serie de datos, lo que yo quiero es que se grafique dicha serie y el grafico tenga los tamaños cubriendo unas celdas en específico, es decir que los datos estan de A1 a A20 y que la gráfica aparezca cubriendo b4:e30
Por favor díganme si es posible. He intentado con las propiedades de  .heigh .width .top y .left, pero si la hoja de claculo tiene un zoom distinto, ésto generará conflictos
De antemano agradezco su ayuda, les mando el código que he usado.
Sub Macro1()
    Dim rngdat As String
    Dim largo As Integer
'
' Macro1 Macro
'
' Acceso directo: CTRL+m
    Sheets("Horno").Select
    Range("A1:" & Sheets("Horno").Range("c2").End(xlDown).Address).Select
    Selection.Copy
    Sheets("Graficas").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Range("A2").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    rngdat = "B3:" & Range("b3").End(xlToRight).Address
    ActiveChart.SetSourceData Source:=Sheets("Graficas").Range(rngdat)
    With ActiveChart
        .HasTitle = False
        .ChartArea.Format.Fill.Visible = msoFalse
        .PlotArea.Format.Fill.Visible = msoFalse
        .ChartArea.Format.Line.Visible = msoFalse
        .Legend.Delete
        .HasAxis(xlCategory) = False
    End With
    largo = Sheets("Graficas").Range(rngdat).Count
    With ActiveChart.Parent
        .Height = 150   ' resize
        .Width = largo * 34.6 ' resize
        .Top = 40       'reposition
        .Left = 25      'reposition
    End With
End Sub