Out Look Email Generation

[Manjunath111]

Hello There,

Greetings !
im getting below error massage not sure why.

code part :

Sub createJpg(SheetName As String, rngAddrss As String, nameFile As String)
Dim rngPic As Range
Dim rngShape As Shape
ThisWorkbook.Activate
Worksheets("working").Activate
Set rngPic = ThisWorkbook.Worksheets("Working").Range(rngAddrss)
rngPic.CopyPicture
With ThisWorkbook.Worksheets("Charts").ChartObjects.Add(rngPic.Left, rngPic.Top, rngPic.Width, rngPic.Height)
.Activate
For Each rngShape In ActiveSheet.Shapes
rngShape.Line.Visible = msoFalse
Next
.Chart.Paste
.Chart.Export Environ$("temp") & "\" & nameFile & ".jpg", "JPG"
End With
Worksheets("Charts").ChartObjects(Worksheets("Charts").ChartObjects.Count).Delete
Set rngPic = Nothing
End Sub

please assist.

 

[davesexcel]

I can't replicate the error, when you step through the code can you identify the line when the error occurs?

 

[Manjunath111]

I can't replicate the error, when you step through the code can you identify the line when the error occurs?

it is some Where Around line : With ThisWorkbook.Worksheets("Charts").ChartObjects.Add(rngPic.Left, rngPic.Top, rngPic.Width, rngPic.Height)

 

[davesexcel]

What is " rngAddrss "?

 

[Manjunath111]

What is " rngAddrss "?

That's is range from column M to P in sheet

 

[davesexcel]

What is the result of RngAddrss?