在VBA中拉出“另存为”框以将图表和范围保存为PDF

Sub SaveAsPDF()
    Dim savePath As String
    Dim chartObject As ChartObject
    Dim rng As Range
    
    ' 获取保存路径
    savePath = Application.GetSaveAsFilename(fileFilter:="PDF Files (*.pdf), *.pdf")
    
    ' 检查用户是否选择了保存路径
    If savePath <> "False" Then
        ' 创建一个新的图表对象
        Set chartObject = ActiveSheet.ChartObjects.Add(Left:=10, Width:=300, Top:=10, Height:=300)
        
        ' 将图表对象设置为活动图表
        chartObject.Activate
        
        ' 将图表导出为PDF文件
        ActiveChart.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath, Quality:=xlQualityStandard
        
        ' 删除临时创建的图表对象
        chartObject.Delete
        
        ' 选择要保存为PDF的范围
        Set rng = Application.InputBox("请选择要保存为PDF的范围:", Type:=8)
        
        ' 检查用户是否选择了范围
        If Not rng Is Nothing Then
            ' 创建一个新的工作簿
            Workbooks.Add
            
            ' 将选择的范围复制到新的工作簿中
            rng.Copy Destination:=ActiveSheet.Range("A1")
            
            ' 将工作簿保存为PDF文件
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath, Quality:=xlQualityStandard
            
            ' 关闭新创建的工作簿
            ActiveWorkbook.Close SaveChanges:=False
        End If
    End If
End Sub