답변:
엑셀이 기능에 대한 사용자 액세스 지원이 부족하지만, 당신도 쉽게 주위에 일하거나이 기능은 VBA,에 팔 수 있다 제공 :
ActiveChart.Export
VBA 매크로 에서 사용하고 싶을 수도 있습니다. 이렇게하면 파일 경로를 지정한 다음 Excel에서 작업을 수행 할 수 있습니다.
아래는 방금 정리 한 실제 프로토 타입입니다. 이 차트를 실행 하면 활성 통합 문서의 모든 차트가 해당 파일과 동일한 폴더로 PNG 형식으로 _chart##
파일 이름에 추가되어 내보내집니다 ( ##
숫자가 증가합니다).
그것은 하지 않습니다 어떤 안전 검사를 (그래서 파일을 덮어 쓰게됩니다!) 수행 되지 않는 오류 검사가 포함되어 있습니다. 그것은 하지 않습니다 방지 파일의 위치에 쓰는 것을 아직 통합 문서를 저장하지 않은 경우, 위치가 읽기 전용 또는 다른 어떤 작동합니다. Excel 2003에서만 이것을 테스트했습니다 (지금 당장해야 할 전부입니다).
다시 말해서 : 귀하의 책임하에 사용하십시오 . 이것은 기본 작업 예일뿐입니다 .
'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
참고 : 나는 주석 '
을 양쪽 끝에 썼다. 필요하지는 않지만 여기에 올바르게 색을 칠하는 데 도움이된다.
ActiveChart.Export ActiveWorkbook.Path & "\chart.png"
. 툴바 버튼에 바인딩 된 매크로에서 (그러나 조금 더 똑똑합니다!) 작업을 수행합니다.
PNG로 안전하게 변환하려면 Excel에서 그림을 복사하여 Power Point의 슬라이드에 붙여 넣은 후 다음을 수행하십시오.
다른 이름으로 저장 → 기타 형식 을 선택한 다음 원하는 형식을 선택하십시오. 그런 다음 현재 슬라이드에만 적용할지 아니면 모든 슬라이드에 적용할지 묻습니다. 모든 슬라이드를 선택하면 지정한 디렉토리에 폴더가 만들어지고 각 슬라이드가 선택한 형식으로 자체 파일에 저장됩니다.
매우 우아하지는 않지만 파일이 필요할 때 충분히 빠를 수 있으며 이미 동일한 그래프로 프리젠 테이션을 한 경우 특히 유용합니다.
오래된 스레드이지만 다른 사람이 Google에서 여기로 온 경우를 대비하여 : Mac 용 Excel 2011의 오른쪽 클릭 메뉴에는 "그림으로 저장"옵션이 있습니다.