Moving data labels outside each bar of an xlBarStacked Chart

[sabael]

Hello.
On 03/17/2016 @Andy Pope uploaded here a code (post # 2) to move labels with data out of each bar of variance.


I have an xlBarstacked Chart and I need data labels outside each bar.


As a first step, from MS Access I export a Query to Excel and create an xlBarStacked Chart (image1).
This is the code from MS Access to create the bars and the horizontal axis:

With .Chart
.SeriesCollection.NewSeries
.SeriesCollection(1).Values = ws.Range("A2", ws.Range("A2").End(xlDown))
.SeriesCollection.NewSeries
.SeriesCollection(2).Values = ws.Range("C2", ws.Range("C2").End(xlDown))
.SeriesCollection(2).XValues = ws.Range("E2", ws.Range("E2").End(xlDown))
.SeriesCollection(2).Format.Fill.ForeColor.RGB = rgbBlue
End with

To show the labels on each bar I recorded a macro in Excel (image2). This the Macro with small changes:

Set ws = ActiveSheet
Set ch = ActiveChart
ws.ChartObjects("Chart 1").Activate


ch.FullSeriesCollection(2).ApplyDataLabels
ch.FullSeriesCollection(2).DataLabels.Select
ch.SeriesCollection(2).DataLabels.Format.TextFrame2.TextRange.InsertChartFi eld _
msoChartFieldRange, "=qry_123!$D$2:$D$15", 100
Selection.ShowRange = True
Selection.ShowValue = False
With Selection.Format.TextFrame2.TextRange.Font.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
.Solid
End With
With Selection.Format.TextFrame2.TextRange.Font
.Bold = msoTrue
.Size = 12
End With
ActiveChart.ChartArea.Select
End Sub

Then, since I could not write a code to move labels, I moved each label one by one to the right of each bar (image3). The values of these labels are in column D (hours) of the WorkSheet.
I attache the three images in a .zip file

I need to run those codes from MS Access.
Any help with (links/tutorials), codes is welcome.
Cheers