使用vba的.ExportAsFixedFormat方法从Excel打印没有边距的图表表？

我使用以下例程将图表导出（保存）为 pdf。该函数获取集合中用户选择的图表表的名称。然后将其一张一张导出为pdf，用户可以选择导出的pdf的保存文件夹。这是我的代码。

Private Function ExportCurvesPDF(Curves As Collection)
Dim source As Workbook
Dim i As Integer
Dim FileName As String
Dim ExportPath As String

Set source = Thisworkbook

ExportPath = "V:\"
For i = 1 To Curves.count
    FileName = Application.GetSaveAsFilename(ExportPath & Curves(i) & ".pdf")

    If FileName <> "False" Then
       source.Sheets(Curves(i)).ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    End If

    ExportPath = common_DB.FolderFromPath(FileName)
Next i

End Function

该代码按预期工作并打印出 pdf，如下所示：

pdf 的边距相当大，我想减少或删除它。我尝试过改变IgnorePrintArea财产和IncludeDocProperties财产，但似乎没有什么对边际产生影响。

有没有办法减少边际.ExportAsFixedFileFormat ?

编辑：我被要求提供图表在 Excel 中的外观的屏幕截图：

您可以尝试指定更多要导出的区域。这将起作用，如果.pdf内容有所减少。例如，假设您的图表与单元格对齐A1 to H30。您可以导出：

source.Sheets(Curves(i)).Range("A1:H30").ExportAsFixedFormat Type:=xlTypePDF...

请记住，您可以列出您的范围以使其适合您自己的代码。

通过这样做，您可以避免文档顶部出现额外的红线。