Error 1004 Error detenido por la aplicación o el objeto

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

Error 1004 Error detenido por la aplicación o el objeto

Notapor LAAM » 05 Oct 2018 14:20

Buena tarde, requiero de su ayuda tengo el siguiente código pero me marca Error 1004 Error detenido por la aplicación o el objeto, comparto el código y en que parte se detiene la marco en color rojo ya le busque pero no encuentro la solción:

Sub EnviarMailSeleccion()
Application.ScreenUpdating = False

'Dim OutApp As Outlook.Application, OutMail As Outlook.MailItem
Dim OutApp As Object, OutMail As Object

archivo = Range("O4").Value

Range("A1:H345").Select
Application.CutCopyMode = False
Selection.Copy

With ActiveSheet
.Pictures.Paste
.Shapes(ActiveSheet.Shapes.Count).Cut
.ChartObjects.Add(1, 1, Selection.Width, Selection.Height).Select
End With

With ActiveChart
.ChartArea.Border.LineStyle = xlNone
.Paste
.Export Filename:=ThisWorkbook.Path & "\Planilla.jpg", FilterName:="JPG"
.Parent.Delete
End With

Set OutApp = CreateObject("Outlook.Application") 'New Outlook.Application
Set OutMail = OutApp.CreateItem(0)

With OutMail

.To = Range("O1").Value
.CC = Range("O2").Value
.BCC = Range("O3").Value
.Subject = Range("O4").Value
'.Attachments.Add Range("O5").Value
.Attachments.Add ThisWorkbook.Path & "\Planilla.jpg"
.BodyFormat = 2 'olFormatHTML
.HTMLBody = "<IMG SRC='Planilla.jpg'>"
.Display
.SaveAs "C:\Users\luis.arista\Desktop\Resultados Mensuales\Correos\" & archivo & " .oft", OlSaveAsType.olTemplate 'El correo se guarda
.Close olSave
End With

Set OutMail = Nothing
Set OutApp = Nothing

Application.ScreenUpdating = True
End Sub
LAAM
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 17
Registrado: 27 Abr 2018 12:22

Re: Error 1004 Error detenido por la aplicación o el objeto

Notapor Cacho R » 05 Oct 2018 16:36

.
Por lo visto, estarías haciendo varias preguntas en una.

La parte donde "le sacas una foto" a un rango de una hoja del Excel y la guardas en tu disco sería así:

Código: Seleccionar todo
With Range("A1:H345")
  .CopyPicture
  With .Worksheet.ChartObjects.Add(0, 0, .Width, .Height).Chart
    .ChartArea.Border.LineStyle = xlNone
    .Paste
    .Export Filename:=Environ("Tmp") & "\Planilla.jpg", FilterName:="jpg"
    .Parent.Delete
  End With
End With
Avatar de Usuario
Cacho R
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 10481
Registrado: 23 Jun 2011 17:15
Ubicación: Buenos Aires


Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: blackmamba70, elforex y 5 invitados