Folks,
This one has me stumped; can an expert ride to the rescue please!!
In the code below the assignment marked **** doesn't work; rngTopLeft
remains resolutely NOTHING in the locals window. In an attempt to
trouble shoot I've added various debug statements to see whether the
information demanded by the assignment is available, and all print the
expected info to immediate window.
Suggestions, please, as to why the assignment to rngTopLeft doesn't
happen
Many thanks in anticipation
Matt
On Error Resume Next 'currClust not yet assigned, n'oubliez pas
If Not rngCluster = rngCurrentCluster Then 'change H & V offset
for charts in new cluster
If iChart = 1 Then 'chart was the very first chart
iHoffset = iHoffset + iXsize
iVoffset = 0
iChart = iChart + 1
**** rngTopLeft =
ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count).TopLeftCell
Debug.Print ActiveSheet.Name: '->SHEET CORRECT
Debug.Print ActiveSheet.ChartObjects.Count: '->NUMBER CORRECT (1)
Debug.Print ActiveSheet.ChartObjects
_(ActiveSheet.ChartObjects.Count).TopLeftCell.Address: '->CORRECT
ADDRESS
Debug.Print TypeName(ActiveSheet.ChartObjects
_(ActiveSheet.ChartObjects.Count).TopLeftCell): '-> it's a range, now
there's a surprise NOT
Debug.Print ActiveSheet.ChartObjects
_(ActiveSheet.ChartObjects.Count).BottomRightCell.Address: '->CORRECT
ADDRESS
Bookmarks