Align Shapes (Charts) On ActiveWorksheet

[Junoon]

Hi,

here intMaxH & intMaxW are never used.

            If intICounter Mod bytRow = 0 Then
                intleft = .Shapes(intICounter + 1 - bytRow).Left + sngWidth

in above code, if bytRow=255, then wouldnt the shape be out of visible screen?


and in this 2nd loop it gives an error:

            For intICounter = 0 To IntNShapes - 1
                intTempArr(intICounter) = .Shapes(intICounter).Width
            Next
            intMaxW = WorksheetFunction.Max(intTempArr)