>>803
グラフだけをpdf化したいんだよね?

あまり詳しくはないけど
グラフを選択してから普通にpdf化すればいいみたいね
ActiveSheet.ChartObjects("Chart 1").Select
ActiveSheet.ExportAsFixedFormat Filename:="d:\test1.pdf", Type:=xlTypePDF