Excel 통합 문서의 모든 워크시트에서 Outlook 전자 메일로 모든 차트를 빠르게 복사하려는 경우 이 문서에 나와 있는 방법을 사용할 수 있습니다. 한번에 받을 수 있도록 도와드립니다.
Excel 통합 문서의 통계에 대한 차트 스택을 만들었을 수 있습니다. 그리고 나중에 이러한 차트를 최대한 활용하여 새 Outlook 메일을 만들고 싶을 것입니다. 물론 이메일에 하나씩 수동으로 복사하도록 선택할 수 있습니다. 그래도 상당히 번거롭습니다. 따라서 다음에서는 훨씬 더 편리한 방법을 알려드리겠습니다. 클릭 한 번으로 쉽게 알 수 있습니다. 이제 자세히 읽으십시오.
Excel 통합 문서의 모든 차트를 Outlook 전자 메일로 일괄 복사
- 로tart, 특정 Excel 통합 문서를 엽니 다.
- 그런 다음 "Alt + F11"을 눌러 Excel VBA 편집기에 액세스하십시오.
- 새 창에서 "MS Outlook Object Lib"을 추가합니다.rary "및"MS Word Object Librar와이". 단계는 기사에 소개된 것과 유사합니다.개체 라이브러리를 추가하는 방법rary VBA의 참조".
- 그런 다음 다음 VBA 코드를 "ThisWorkbook" 프로젝트에 넣습니다.
Sub CopyAllChartsToOutlookEmail()
Dim objOutlookApp As Outlook.Application
Dim objMail As Outlook.MailItem
Dim objMailDocument As Word.Document
Dim objSheet As Excel.Worksheet
Dim objChart As Excel.ChartObject
'Get Outlook Application
On Error Resume Next
Set objOutlookApp = GetObject(, "Outlook.Application")
If objOutlookApp Is Nothing Then
Set objOutlookApp = CreateObject("Outlook.Application")
End If
'Create an Outlook Email
Set objMail = objOutlookApp.CreateItem(olMailItem)
objMail.Display
Set objMailDocument = objMail.GetInspector.WordEditor
'Copy All Charts from Each Sheet to the New Email
For Each objSheet In ActiveWorkbook.Worksheets
For Each objChart In objSheet.ChartObjects
objChart.Copy
objMailDocument.Range(0, 0).Paste
Next
Next
End Sub
- 그런 다음 "F5" 키 버튼을 누르거나 도구 모음에서 "실행" 아이콘을 클릭하여 매크로를 실행합니다.
- 그러면 Outlook 이메일이 다음 이미지와 같이 팝업 경고와 함께 표시됩니다.
- “허용” 버튼을 선택하여 클릭하면 원본 Excel 통합 문서의 모든 차트가 이 메일에 한 번에 복사됩니다.
모든 위험으로부터 보호 전망
우리 모두 알다시피, 물론 Outlook 데이터 파일을 포함하여 많은 위협이 데이터를 둘러싸고 있습니다. 또한 아무도 Outlook 손상을 겪는 것을 꺼려하지 않습니다. 따라서 모든 Outlook 사용자는 모든 종류의 잠재적 위험으로부터 Outlook을 보호하기 위한 조치를 취해야 합니다. 구체적으로 말하면 사용자는 Outlook 데이터를 정기적으로 백업해야 합니다. Outlook 복구 많이. 또한 다음과 같은 강력한 PST 수정 도구를 사용하는 것이 좋습니다. DataNumen Outlook Repair.
저자 소개 :
Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 손상된 SQL 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM