Run Time Error '1004' Copypicture method of range class failed

[mk4646]

Hello, so i've been running this macro now for several years daily to output football statistics, randomly today its throwing this error at me and i have no idea how to solve it!

please help!! thank you in advance


rgExp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap <----------- debug highlights this line

Sub CharlieExport()

Dim filename1 As String
Dim Path As String
Dim Myrange As String
Dim dvCell As Range
Dim inputRange As Range
Dim c As Range
Dim i As Long

Set dvCell = Worksheets("Fixtures").Range("L1")
Set inputRange = Evaluate(dvCell.Validation.Formula1)
i = 1


Application.ScreenUpdating = True
For Each c In inputRange
dvCell = c.Value


Myrange = Worksheets("Macro Info").Range("B4").Value
    Dim rgExp As Range: Set rgExp = Worksheets("ministat").Range(Myrange)
    ''' Copy range as picture onto Clipboard
    rgExp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
    Application.ScreenUpdating = True
    ''' Create an empty chart with exact size of range copied
    With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, _
    Width:=rgExp.Width, Height:=rgExp.Height)
    .Name = "TempChart"
    .Activate
    End With
    ''' Paste into chart area, export to file, delete chart.
    Application.ScreenUpdating = True
    ActiveChart.Paste
    Application.Wait (Now + TimeValue("0:00:01"))
   Path = Worksheets("Macro Info").Range("K6").Value
    filename1 = Worksheets("ministat").Range("A11") & "Mini-10" & ".jpeg"
    ActiveSheet.ChartObjects("TempChart").Chart.Export (Path & filename1)
    ActiveSheet.ChartObjects("TempChart").Delete

Next c
Application.ScreenUpdating = True
MsgBox ("Saved")

End Sub

 

[NdNoviceHlp]

You could trial changing this...

Dim Myrange As Range

and just using this....

rgExp.CopyPicture

HTH. Dave
ps. Welcome to the Board!

 

[martinkbg]

Hi,

I realize this is a bit late, but this solution by @Jaafar Tribak helped me out in the same situation: VBA Error 1004 - CopyPicture method of Range class failed

 

[NdNoviceHlp]

Glad U got it sorted out. Thanks for posting your outcome. Dave