Slow Image Transfer

[Giordano Bruno]

I am transferring and image to a user form, "frmAlt". The code I'm using is:

CurrentChart.Export Filename:=CurrentFileName, FilterName:="GIF"
frmAlt.Image1.Picture = LoadPicture(CurrentFileName)

Sometimes this takes between 0.15 and 0.2 seconds, but frequntly it takes between 3 and 4 seconds, or more.
Can anyone think what could be causing the delay or what might be a better way of getting the image on my form?

 

[jolivanes]

If you tell us where the picture is located. In a Folder? On a Sheet?
Looks like you move a chart from a sheet.

 

[Giordano Bruno]

Thanks for the reply jolivanes. Your assumption is correct, the chart is created on a veryhidden worksheet and is transferred to a userform.

 

[ISY]

Hi

I remind you to use few images in the sheet
If you can avoid saving the image in the file
Copy it directly into memory

 

[Giordano Bruno]

Thanks ISY. Can you be a bit more specific about how to achieve this?

 

[jolivanes]

Show us the whole macro.

 

[jolivanes]

In a regular module.

Sub Show_Me()
    UserForm1.Show
End Sub

UserForm (Userform1) with Image Control (Image1) and Command Button (Cmd1)

Private Sub Cmd1_Click()
'With thanks to Siddharth Rout
    Dim objChrt As ChartObject
    Dim myChart As Chart
    Dim myFileName As String, strPath As String

    strPath = ThisWorkbook.Path & "\Temp_Chart.jpg"

    Set objChrt = Sheets("Sheet1").ChartObjects(1)
    Set myChart = objChrt.Chart

    On Error Resume Next
        Kill strPath
    On Error GoTo 0

    myChart.Export Filename:=strPath, Filtername:="JPG"

    Me.Image1.Picture = LoadPicture(strPath)
    Me.Image1.PictureSizeMode = fmPictureSizeModeStretch

End Sub

Change references where required.

 

[Giordano Bruno]

Thanks for that jolivanes. It is essentially the same as my code, and unfortunately does nothing to improve the speed. I believe I have found the solution myself by removing the reference to the workbook path and simply referencing the worksheet (It's in the same workbook, which I hadn't mentioned.)