Kotartidzo
Technical User
I am using Access 2003 and am trying to save a Microsoft Graph chart unbound object in a report as a GIF file for uploading to Sharepoint.
I have copied code from the Microsoft support shown below. However, when I run the code my system does not recognize the unbound.locked and unbound.enabled functions. I think it is because I do not have a particular reference library. Any help on why my system doesn't recognize this code would be appreciated.
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
'On Error GoTo Err_Detail_Format
'for this code to work you need to have the Microsoft Graph 11.0 Object library installed in the Tools/References
'Code as downloaded from on 08Feb2011
Dim grpApp As Graph.Chart
Set grpApp = Me.OLEUnbound0.Object
grpApp.Export "O:\COMMON_DATA\ServicePartsData\FillRate-PastDue\FillRate\fillratechart.gif", "GIF", False
Me!OLEUnbound0.Locked = False
Me.OLEUnbound0.Enabled = True
Set grpApp = Nothing
Me.OLEUnbound0.Action = acOLEClose
DoCmd.Close
Exit_Detail_Format:
Exit Sub
Err_Detail_Format:
MsgBox Err.Description
Resume Exit_Detail_Format
End Sub
I have copied code from the Microsoft support shown below. However, when I run the code my system does not recognize the unbound.locked and unbound.enabled functions. I think it is because I do not have a particular reference library. Any help on why my system doesn't recognize this code would be appreciated.
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
'On Error GoTo Err_Detail_Format
'for this code to work you need to have the Microsoft Graph 11.0 Object library installed in the Tools/References
'Code as downloaded from on 08Feb2011
Dim grpApp As Graph.Chart
Set grpApp = Me.OLEUnbound0.Object
grpApp.Export "O:\COMMON_DATA\ServicePartsData\FillRate-PastDue\FillRate\fillratechart.gif", "GIF", False
Me!OLEUnbound0.Locked = False
Me.OLEUnbound0.Enabled = True
Set grpApp = Nothing
Me.OLEUnbound0.Action = acOLEClose
DoCmd.Close
Exit_Detail_Format:
Exit Sub
Err_Detail_Format:
MsgBox Err.Description
Resume Exit_Detail_Format
End Sub