Public Function InsertSP()
On Error GoTo InsertPageErr_Err
 
     Dim xlapp As Object
     Dim xlWbkNew As Object
     Dim xlWbkOld As Object
     Dim strSheetName As String
 
        Set xlapp = CreateObject("Excel.Application")
        Set xlWbkNew = xlapp.Workbooks.Open(Forms![frmExport]![txtExportPath] & "/" & Forms![frmExport]![txtNewFileName])
        Set xlWbkOld = xlapp.Workbooks.Open(Forms![frmExport]![txtExportPath] & "/" & Forms![frmExport]![txtOldFileName])
 
        strSheetName = Forms![frmExport]![txtLDSheetName]
 
     xlWbkOld.Worksheets(strSheetName).Copy After:=xlWbkNew.Worksheets(xlWbkNew.Worksheets.Count)
     xlWbkNew.Worksheets(strSheetName).Name = Forms![frmExport]![txtNewFileName] & " SP"
     xlWbkOld.Close SaveChanges:=True
     xlWbkNew.Close SaveChanges:=True
     xlapp.Quit
 
InsertPageErr_Exit:
   Set xlWbkNew = Nothing
   Set xlWbkOld = Nothing
   xlapp.Quit
   DoCmd.Hourglass False
 Exit Function
 
InsertPageErr_Err:
   MsgBox "Error # " & Err.Number & " This Worksheet already in the specified Workbook!"
 Resume InsertPageErr_Exit
 
End Function 

Public Function fMinAxis(strMeasure As String, strStateID As String) As Double
 
    'To get Min Axis for Excel Chart
    fMinAxis = Nz(DLookup("MinAxis", "quniMinMax", "Measure='" & strMeasure & "' And pStateID = '" & strStateID & "'"), 20)
End Function
 
Public Function fMaxAxis(strMeasure As String, strStateID As String) As Double
 
    'To get Max Axis for Excel Chart
    fMaxAxis = Nz(DLookup("MaxAxis", "quniMinMax", "Measure='" & strMeasure & "' And pStateID = '" & strStateID & "'"), 100)
End Function
 
Public Function fMajorUnit(strMeasure As String, strStateID As String) As Double
 
    'To get Major Unit for Excel Chart
    fMajorUnit = Nz(DLookup("lngMajorUnit", "quniMinMax", "Measure='" & strMeasure & "' And pStateID = '" & strStateID & "'"), 10)
End Function

'Select the Chart Object, xlChtOP and then the name of your Chart, OP
Set xlChtOP = xlWBk.Worksheets("Charts").ChartObjects("OP").Chart xlWBk.Worksheets("Charts").ChartObjects("OP").Activate
 
        With xlChtOP.Axes(2, 1)
            .MinimumScale = fMinAxis("OP", Me.cboStateID)
            .MaximumScale = fMaxAxis("OP", Me.cboStateID)
            .MajorUnit = fMajorUnit("OP", Me.cboStateID)
        End With

'Note, the path to the Image is in column 3 of the Combo Box       
      If Me.cboStateID.Column(2) <> "" Then
            'False      Link to File
            'True       Save with Document
            'All below values are in Points
            'Left       100
            'Top        100
            'Width      70 (pixels) or -1 for original size
            'Height     70 (pixels) or -1 for original size
            xlWBk.Worksheets("Charts").Shapes.AddPicture strLogoPath, False, True, 0, 0, -1, -1
        End If

Function fInsertLogo()
On Error GoTo errHandler
'12.1.2015 Gina Whipp (access-diva.com)
'Puts an image (Logo) in the upper right hand corner of first Excel worksheet
 
    Dim oXL As Object
    Dim xlWorkbook As Object
    Dim xlWorksheet As Object
    Dim strReportPath As String
    Dim strLogoPath As String
 
    strReportPath = fncSetting(11) & "YourExcelWorkbookNameGoesHere.xlsx"
    strLogoPath = fncSetting(6) & fncSetting(15)
 
    Set oXL = CreateObject("Excel.Application")
    Set xlWorkbook = oXL.Workbooks.Open(strReportPath)
    Set xlWorksheet = xlWorkbook.Worksheets(1)
 
        With xlWorksheet.Cells(1, 1)
            xlWorksheet.Shapes.AddPicture strLogoPath, False, True, 1, 1, -1, -1
        End With
 
    oXL.DisplayAlerts = False
    xlWorkbook.Save
    oXL.DisplayAlerts = True
 
Exit_fInsertLogo:
    Set xlWorkbook = Nothing
    oXL.Quit
    Set oXL = Nothing
    Exit Function
 
errHandler:
    MsgBox "Error " & Err.Number & ": " & Err.Description, vbInformation + vbOKOnly, "fInsertLogo"
    Resume Exit_fInsertLogo
 
End Function