pdf yapma kod:
mesela verileriniz barajtablo Excel sayfasında ise bahsettiğim dosyadaki grafikformuna bir buton ekleyip butona aşağıdaki kodu yazıp deneyin

dosyaAdıAdresi = ThisWorkbook.Path & "\PdfYap.pdf"

Sheets("barajtablo").Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

    Filename:=dosyaAdıAdresi, _

    Quality:=xlQualityStandard, _

    IncludeDocProperties:=True, _

    IgnorePrintAreas:=False, _

    OpenAfterPublish:=True