Series.PictureUnit2 (Excel)
Returns or sets the unit for each picture on the chart if the PictureType property is set to xlStackScale (if not, this property is ignored).
With Charts("Chart1").SeriesCollection(1)
.PictureType = xlScale
.PictureUnit2 = 5
End With