Excel thiếu bất kỳ hỗ trợ nào mà người dùng có thể truy cập được đối với chức năng này, nhưng bạn có thể dễ dàng làm việc xung quanh vấn đề này hoặc tìm hiểu về VBA, nơi chức năng này được cung cấp:
Xuất khẩu "One-shot"
- Chọn biểu đồ (toàn bộ biểu đồ, không phải thành phần bên trong; vì vậy hãy chọn đường viền).
- Sao chép nó (ctrl-c, nhấp chuột phải sao chép, bất cứ điều gì bạn thích).
- Mở MS Sơn.
- Dán (bạn có thể muốn giảm thiểu kích thước hình ảnh trước, nó sẽ được phóng to để vừa, nhưng không bị thu nhỏ).
- Lưu lại theo ý muốn.
Xuất khẩu số lượng lớn
Bạn có thể muốn xem xét việc sử dụng ActiveChart.Exporttrong macro VBA, điều này cho phép bạn chỉ định đường dẫn tệp và sau đó cho phép Excel thực hiện công việc.
Dưới đây là một nguyên mẫu hoạt động mà tôi vừa đặt lại với nhau. Chạy biểu đồ này và mọi biểu đồ trong sổ làm việc đang hoạt động sẽ được xuất sang cùng thư mục với tệp đó, ở định dạng PNG, được _chart##gắn vào tên tệp (trong đó## số tăng dần).
Nó không thực hiện bất kỳ kiểm tra an toàn nào (vì vậy sẽ ghi đè lên các tệp!) Và không chứa bất kỳ kiểm tra lỗi nào. Nó sẽ không hoạt động nếu bạn chưa lưu sổ làm việc, vị trí ở chế độ chỉ đọc hoặc bất kỳ thứ gì khác ngăn ghi vào vị trí của tệp. Tôi mới chỉ thử nghiệm điều này trong Excel 2003 (vì đó là tất cả những gì tôi phải trao vào lúc này).
Nói cách khác: Sử dụng có nguy cơ của riêng bạn , đây chỉ nhằm mục đích làm ví dụ cơ bản .
'small nicety to ensure two-digits for better file sorting'
Function NiceFileNumber(num As Integer) As String
If num < 10 Then
NiceFileNumber = "0" & num
Else
NiceFileNumber = num
End If
End Function
'the real function'
Sub ExportAllCharts()
Dim i As Integer, exportCount As Integer
Dim fileNum As String, fileBase As String
Dim sheetObj As Worksheet
Dim chartObj As Chart
'current file location and name, with extension stripped'
fileBase = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".") - 1)
exportCount = 0
'First, export all charts that are in their own sheets'
For Each chartObj In ActiveWorkbook.Charts
fileNum = NiceFileNumber(exportCount)
exportCount = exportCount + 1
'Do the export'
chartObj.Export fileBase & "_chart" & fileNum & ".png"
Next
'Then, export all charts that are embedded inside normal sheets'
For Each sheetObj In ActiveWorkbook.Worksheets
For i = 1 To sheetObj.ChartObjects.count
fileNum = NiceFileNumber(exportCount)
exportCount = exportCount + 1
'Do the export'
sheetObj.ChartObjects(i).Activate
ActiveChart.Export fileBase & "_chart" & fileNum & ".png"
Next i
Next
End Sub
Lưu ý: Tôi đã đóng gói các nhận xét 'ở cả hai đầu, điều này không cần thiết, nhưng giúp đảm bảo chúng được tô màu chính xác ở đây.