View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Valeria Valeria is offline
external usenet poster
 
Posts: 127
Default paste 2 charts on the same image on a userform

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