VBA re-position (center) x,y axis labels based on height,width of inner plot area of a chart

[absundo]

I'm trying to figure out how to use VBA to center or reposition the axis (x and y) labels based on the height and width of a chart's inner plot area. Any help or input would be greatly appreciated!

 

[bobsan42]

maybe something like this:

    Dim b, h, T0, L0
    ActiveSheet.Shapes("Chart 1").Select
    With ActiveChart
        b = .PlotArea.Width
        h = .PlotArea.Height
        T0 = .PlotArea.Top
        L0 = .PlotArea.Left
        With .Axes(xlValue).AxisTitle
            .Top = T0 + h / 2 - .Height / 2
        End With
        With .Axes(xlCategory).AxisTitle
            .Left = L0 + b / 2 - .Width / 2
        End With
    End With
    b = Null
    h = Null
    T0 = Null
    L0 = Null