Hi again,
I have tried to solve the first problem and I think it worked like that:
I added a sub and called it in combobox6 change according to the value choosen using select case.The code is as follows:any suggestions would be highly appreciated.
Private Sub UpdateChart() Dim FName As String
Set currentchart = Sheets("Charts").ChartObjects(ChartNum).Chart
currentchart.Parent.Activate
'currentchart.Parent.Width = 300
'currentchart.Parent.Height = 150
' Save chart as GIF
FName = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
On Error Resume Next
Kill FName
On Error GoTo 0
currentchart.Export Filename:=FName, FilterName:="GIF"
' Show the chart
Image1.Picture = LoadPicture(FName)
Kill FName
End Sub
Combobox change:
Private Sub ComboBox6_Change()
'Display a chart according to project type from sheet "Charts"
'I mean "Graphique3","Graphique4","Graphique5" =Projects progress %
Select Case ComboBox6.Value
Case Is = "Basic to Sustain"
ChartNum = 3
UpdateChart
Case Is = "Specific to sustain"
ChartNum = 4
Case Is = "Improve-performance"
ChartNum = 5
End Select
UpdateChart
'
End Sub
worked.jpg
Please help me for the other two problems,