Cómo copiar por lotes todos los gráficos de un libro de Excel a un correo electrónico de Outlook

Si desea copiar rápidamente todos los gráficos de cada hoja de trabajo en un libro de Excel a un correo electrónico de Outlook, puede usar el método expuesto en este artículo. Puede ayudarlo a obtenerlo de una vez.

Quizás haya creado una pila de gráficos para las estadísticas en un libro de Excel. Y luego, le gustaría hacer un uso completo de estos gráficos para crear un nuevo correo de Outlook. Por supuesto, puede optar por copiarlos al correo electrónico uno por uno manualmente. Sin embargo, es bastante problemático. Por lo tanto, a continuación, compartiremos una forma mucho más práctica con usted. Puede ayudarlo a darse cuenta de eso simplemente con un clic. Ahora sigue leyendo para conocerlo en detalle.

Copie por lotes todos los gráficos de un libro de Excel a un correo electrónico de Outlook

1. Para empezar, abre el libro de Excel correspondiente.
2. Luego, presione "Alt + F11" para acceder al editor de Excel VBA.
3. En la nueva ventana, agregue “Biblioteca de objetos de MS Outlook” y “Biblioteca de objetos de MS Word”. Los pasos son similares a los que se presentan en el artículo:Cómo agregar una referencia a una biblioteca de objetos en VBA".
4. Después de eso, coloque el siguiente código VBA en el proyecto "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

5. Después de eso, toque el botón de la tecla "F5" o haga clic en el icono "Ejecutar" en la barra de herramientas para ejecutar la macro.
6. Posteriormente, se mostrará un correo electrónico de Outlook con una advertencia emergente, como se muestra en la siguiente imagen.
7. Cuando seleccione y haga clic en el botón "Permitir", todos los gráficos del libro de Excel de origen se copiarán en este correo a la vez.

Proteja Outlook de todos los riesgos

Como todos sabemos, una gran cantidad de amenazas rodean nuestros datos, incluidos, por supuesto, nuestros archivos de datos de Outlook. Además, nadie es reacio a sufrir la corrupción de Outlook. Por lo tanto, cada usuario de Outlook debe realizar acciones para proteger su Outlook de todo tipo de riesgos potenciales. Para ser específicos, los usuarios deben realizar copias de seguridad de los datos de Outlook de forma regular, lo que puede facilitar Recuperación de Outlook un monton. Además, será mejor que se apodere de una potente herramienta de reparación de PST, como DataNumen Outlook Repair.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo sql corrupto y productos de software de reparación de Outlook. Para más información visite www.datanumen.com