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!
Responder
LAAM
Miembro Frecuente
Miembro Frecuente
Mensajes: 17
Registrado: 27 Abr 2018 12:22

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

Mensaje por 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



Avatar de Usuario
Cacho R
Miembro Frecuente
Miembro Frecuente
Mensajes: 10788
Registrado: 23 Jun 2011 17:15
Ubicación: Buenos Aires
Contactar:

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

Mensaje por 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



Responder