Hi everybody,
I would like to ask you for help in the following case. I have an Excel macro that changes data labels for one particular chart without changing the actual values (the code in the blue below).
<code style="margin: 0px; padding: 0px; font-style: inherit; font-weight: inherit;">
.
.
.
ActiveSheet.ChartObjects("Chart 4").Activate
ActiveChart.SeriesCollection(1).Values = Range("wf_V").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(2).Values = Range("wf_U").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(3).Values = Range("wf_X").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(4).Values = Range("wf_W").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(5).Values = Range("wf_Y").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(6).Values = Range("wf_Z").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(1).XValues = Range("label_start").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(2).XValues = Range("label_start").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(3).XValues = Range("label_start").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(4).XValues = Range("label_start").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(5).XValues = Range("label_start").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(6).XValues = Range("label_start").Resize(waterfall_count, 1)
For Counter = 1 To waterfall_count
ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = True
ValueLabel = Round(Sheets("Aux").Range("val_lab_start").Offset(Counter - 1, 0).Value)
ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = ValueLabel
Next Counter
ActiveChart.SeriesCollection(1).DataLabels.Select
Selection.Position = xlLabelPositionInsideBase
.
.
.</code>
The problem is that I would need to reproduce the same action in PowerPoint, that seems to require different coding. Would any of you had the idea how to fix this issue?
Thank you for any answer or any data source for getting better PowerPoint VBA programming!
I would like to ask you for help in the following case. I have an Excel macro that changes data labels for one particular chart without changing the actual values (the code in the blue below).
<code style="margin: 0px; padding: 0px; font-style: inherit; font-weight: inherit;">
.
.
.
ActiveSheet.ChartObjects("Chart 4").Activate
ActiveChart.SeriesCollection(1).Values = Range("wf_V").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(2).Values = Range("wf_U").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(3).Values = Range("wf_X").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(4).Values = Range("wf_W").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(5).Values = Range("wf_Y").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(6).Values = Range("wf_Z").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(1).XValues = Range("label_start").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(2).XValues = Range("label_start").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(3).XValues = Range("label_start").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(4).XValues = Range("label_start").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(5).XValues = Range("label_start").Resize(waterfall_count, 1)
ActiveChart.SeriesCollection(6).XValues = Range("label_start").Resize(waterfall_count, 1)
For Counter = 1 To waterfall_count
ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = True
ValueLabel = Round(Sheets("Aux").Range("val_lab_start").Offset(Counter - 1, 0).Value)
ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = ValueLabel
Next Counter
ActiveChart.SeriesCollection(1).DataLabels.Select
Selection.Position = xlLabelPositionInsideBase
.
.
.</code>
The problem is that I would need to reproduce the same action in PowerPoint, that seems to require different coding. Would any of you had the idea how to fix this issue?
Thank you for any answer or any data source for getting better PowerPoint VBA programming!