Question

我正在使用Excel 2013.我正在尝试将一个Excel工作簿中的多个图表保存为pdf文件。图表位于包含数据的不同表格上。因此，我需要在每张纸上选择图表并保存为一个PDF文件。我想在pdf文件中的一个页面上有一个图表。有没有办法做到这一点？我很感谢支持。

谢谢Jeannine

Answer 1

选择带有图表的工作表并另存为PDF。

Answer 2

反射的VBA解决方案看起来有点麻烦，但可以自定义吗？将代码放在标准代码模块中，并将outputPath替换为您的。方法是在单独的工作表上组合布局，然后将工作表导出到.pdf。对于此示例，请确保在工作簿中有一个名为“Compose”的工作表（可能添加一些代码来执行此操作）。

 Option Explicit

Sub chartsTopdf()
Dim outSheet As Worksheet, sht As Worksheet
Dim RngToCover As Range
Dim chtObj As ChartObject
Dim outputPath As String, fileStem As String
Dim chHeight As Long, chWidth As Long
Dim topM As Integer, botM As Integer, rightM As Integer
Dim n As Integer, pbRow As Integer, rwOffset As Integer
Dim chrt As String

Set outSheet = Sheets("Compose")
outputPath = "C:\Data\Barry\VBA\SO\"
fileStem = "Charts"
'these values in 'points'
topM = 60
botM = 60
rightM = 60
'these values in 'rows'
pbRow = 1
rwOffset = 8
chHeight = 12
chWidth = 5
Set RngToCover = Cells(chHeight, chWidth)
n = 0

    With ThisWorkbook
        With outSheet
            .ResetAllPageBreaks
            .ChartObjects.Delete
                With .PageSetup
                    .Orientation = xlPortrait
                    .PrintArea = ""
                    .TopMargin = topM
                    .BottomMargin = botM
                    .RightMargin = rightM
                End With
        End With

        For Each sht In .Worksheets
            If Not sht.Name = outSheet.Name Then
                'Copy Chart
                Set chtObj = sht.ChartObjects(1)
                chtObj.Copy
                    With outSheet
                        .Paste
                        n = n + 1
                        Set RngToCover = .Range(.Cells(pbRow + rwOffset, 1), .Cells(pbRow + rwOffset + chHeight, 1 + chWidth))
                        Set chtObj = .ChartObjects(n)
                        chtObj.Height = RngToCover.Height ' resize
                        chtObj.Width = RngToCover.Width   ' resize
                        chtObj.Top = RngToCover.Top       ' reposition
                        chtObj.Left = RngToCover.Left     ' reposition
                        'add hpage break
                        .HPageBreaks.Add before:=.Cells(pbRow + rwOffset + chHeight, 1 + chWidth).Offset(2, 0)

                        pbRow = .HPageBreaks(n).Location.Row
                    End With
            End If
        Next sht

    ActiveCell.Select

        'set essential page parameters
        With outSheet.PageSetup
            .Orientation = xlPortrait
            .PrintArea = ""
            .TopMargin = topM
            .BottomMargin = botM
            .RightMargin = rightM
        End With

        'produce pdf file
        outSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            outputPath & fileStem & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=True

    End With

End Sub

我使用了Jon Peltier的interesting article，这也可能是有意义的。

将Excel中的多个图表保存为一个PDF文件

2 个答案: