View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Bob Phillips[_3_] Bob Phillips[_3_] is offline
external usenet poster
 
Posts: 2,420
Default paste 2 charts on the same image on a userform

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.

--
__________________________________
HTH

Bob

"Valeria" wrote in message
...
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,

--
Valeria