We help IT Professionals succeed at work.
Get Started

Charts overlapping datatable on spreadsheet.

Last Modified: 2015-03-31
I'm now having a problem where the graphs on a spreadsheet are now overlapping the datatable.  I'm creating the spreadsheet from within access using vba.  I thought the following code was working fine but now I see that it really wasn't.  I'm trying to offset the top parameter of each chart so they line up below the used range of the datatable.

Sub LineUpMyCharts(objWS As Object)
    ' Comments:
    ' Params  : objWS
    ' Modified:
    On Error GoTo PROC_ERR
    Dim objXlSheet As Object
    Dim objChart As Object
    Dim sngMyHeight As Single
    Dim sngMywidth As Single
    Dim lngChartCount As Long
    Dim lngChartIndex As Long
    sngMywidth = 750
    sngMyHeight = 300
    Set objXlSheet = objWS
    lngChartCount = objWS.ChartObjects.Count
    For lngChartIndex = 1 To lngChartCount
        Set objChart = objXlSheet.ChartObjects(lngChartIndex)
        With objChart
            .Top = objXlSheet.UsedRange.Rows.Count + ((sngMyHeight + 50) * lngChartIndex)
        End With
    Exit Sub
    MsgBox Err.Number & vbTab & Err.Description, vbCritical, Me.Name & ".LineUpMyCharts"
    Resume PROC_EXIT
End Sub

Open in new window

Watch Question
Top Expert 2016
This problem has been solved!
Unlock 1 Answer and 4 Comments.
See Answer
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE