Charts.Add Alternative

[Av8tordude]

This code allows me to copy/paste an image onto a blank chart object and then save the image to my computer. One thing really annoying is it must add a sheet for the blank chart object and then paste the blank chart object onto the main sheet and then delete the chart sheet. Can someone help me rewrite this code. Thanks

I tried this but I getting an error..
Set OHLCChart = Wks.ChartObjects.Add(0, 0, 600, 300)

Sub ExportMyPicture2()
Dim MyChart As String, MyPicture As String, FName As String
Dim PicWidth As Long, PicHeight As Long

Application.ScreenUpdating = False
MyPicture = ActiveCell.Value

Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
MyChart = Selection.Name & " " & Split(ActiveChart.Name, " ")(2)

With ActiveSheet
    With .Shapes(MyChart)
          .Width = 600
          .Height = 300
    End With

    .Shapes(MyPicture).Copy

    With ActiveChart
          .ChartArea.Select
          .Paste
    End With
    
    'FName = VBA.Environ("TEMP") & Application.PathSeparator & "MyPic.jpg"
    '.ChartObjects(1).Chart.Export FName
    .Shapes(MyChart).Delete
    '.Shapes(MyPicture).Delete
     'Kill FName
End With
End Sub

 

[RoryA]

What error?

 

[Av8tordude]

When I try replacing this part of the code..

Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
MyChart = Selection.Name & " " & Split(ActiveChart.Name, " ")(2)

With ActiveSheet
    With .Shapes(MyChart)
          .Width = 600
          .Height = 300
    End With

With

Set OHLCChart = Wks.ChartObjects.Add(0, 0, 600, 300)

 

[RoryA]

Again, what error?

 

[Av8tordude]

The error occurs Set MyChart = ActiveSheet.ChartObjects.Add(0, 0, 600, 300)

Sub ExportPic()
Dim MyChart As Object, MyPicture As String, FName As String
Dim PicWidth As Long, PicHeight As Long

Application.ScreenUpdating = False
MyPicture = ActiveCell.Value

Set MyChart = ActiveSheet.ChartObjects.Add(0, 0, 600, 300)

With ActiveSheet

    .Shapes(MyPicture).Copy

    With ActiveChart
          .ChartArea.Select
          .Paste
    End With

 

[RoryA]

Is the active sheet protected?

 

[Av8tordude]

No

 

[RoryA]

Which version of Excel?

 

[Av8tordude]

2019

 

[RoryA]

I can't replicate the error in 2016.