paste 2 charts on the same image on a userform

[Valeria]

Dear experts,
I am using John Walkenbach's code to show charts as images on a userform. I
have added some buttons where users can choose which charts they want to see,
however for one particular type I would like to put 2 charts on the same
image, one next to the other (it is 2 thermometer charts). Is this possible?

Here is the code I am using (I am adapting the size of the image to the
userform.image1 as I have made the userform resizable)

Private Sub UpdateChart()
Set CurrentChart = Sheets("Charts2").ChartObjects(ChartNum).Chart
CurrentChart.Parent.Width = Image1.Width
CurrentChart.Parent.Height = Image1.Height

' Save chart as GIF
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export Filename:=Fname, FilterName:="GIF"

' Show the chart
Image1.Picture = LoadPicture(Fname)
End Sub


Many thanks in advance for your help!
Kind regards,

 

[Bob Phillips]

I think that your simplest option would be to have two adjacent images on
the form and export and loadPicture the two charts. You could hide the
second when not needed.

 

[Jacob Skaria]

Just to add on.. You could hide the second image control or resize it ..

On the other hand you can use the Chart Export option itself to copy both
charts as picture onto a new chart (resized to fit both pictures) and export
to a single file..

If this post helps click Yes