Here's a slight variation that places chartobjects 2 wide equally spaced down the sheet. A few tweeks involved for horizontal and vertical spacing.


for k=0 to Ubound(myArray)
Set ch = ActiveSheet.ChartObjects.Add(10 + Application.Width / 2.2 * (k Mod 2), 10 + spce * (Int(k / 2)), Application.Width / 2.3, 135)