With Chart1.Chart.Axes(xlValue) 
        .MajorTickMark = xlOutside
        .MinorTickMark = xlNone

        ' Для Excel 2003. xlTickLabelPositionHigh, xlTickLabelPositionLow, 
        ' xlTickLabelPositionNextToAxis, xlTickLabelPositionNone

        ' Для Excel 97. xlNone, xlHigh и т.д.
        .TickLabelPosition = xlTickLabelPositionNextToAxis 
    End With 

Public Sub ChangePosition()
    Dim objOle As OLEObject
    Dim chSpace As OWC11.ChartSpace
    Dim chAxis As OWC11.chAxis
    
    Set objOle = Worksheets("Лист1").OLEObjects("ChartSpace1")
    Set chSpace = objOle.Object
    Set chAxis = chSpace.Charts( 0 ).Axes( 0 )
    chAxis.Position = chAxisPositionTop
    
    Set objOle = Nothing
End Sub