ActiveSheet.Shapes("Chart 2").IncrementLeft -142.5
    ActiveSheet.Shapes("Chart 2").IncrementTop 248.25
    Windows("ljagho.xls").SmallScroll Down:=18
    ActiveSheet.Shapes("Chart 2").ScaleWidth 1.63, msoFalse, msoScaleFromTopLeft
    ActiveChart.Axes(xlValue).Select
    With ActiveChart.Axes(xlValue)
        .MinimumScale = -6
        .MaximumScale = 6
        .MinorUnit = 0.4
        .MajorUnit = 2
        .Crosses = xlCustom
        .CrossesAt = 0
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With
    Selection.TickLabels.AutoScaleFont = True
    With Selection.TickLabels.Font
        .Name = "돋움"
        .FontStyle = "보통"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .Background = xlAutomatic
    End With
    Selection.TickLabels.NumberFormatLinked = True
    ActiveChart.Axes(xlCategory).Select
    Selection.TickLabels.AutoScaleFont = True
    With Selection.TickLabels.Font
        .Name = "돋움"
        .FontStyle = "보통"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .Background = xlAutomatic
    End With

이거좀 c++빌더로 바꿔 주세요 위치 이동 하고 Y축 범위 정하는 것입니다.