Imprimir gráfico excel en pdf

¡ Hola !

Mi problema es que tengo unos gráficos colocados como hojas del libro excel y no puede imprimirlos como pdf con una macro. El código que tengo y que me da el error 438 en tiempo de ejecución es el siguiente:

Sub ImpPDF()


Sheets("Acum_Anual").Select
ActiveChart.ChartArea.Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\CAOC\Desktop\Ocupacion Anual\grafico.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

End Sub

Utilizo Excel 2010 y Adobe Acrobat X Versión 10.1.1

Gracias por la ayuda.