Hi,
i have used the image embed option to embed a chart as image on user form.
i want to resize the chart as per the space allocated for image.

the code below generates the chart but am unable to find option to resize the same
Kindly help.

Private Sub frmSourcing_Click()

Dim cht As Object
Dim rng As Range
Dim chtName As String
Dim imageName As String
Sheets("Sourcing_Count").Select
Set rng = Sheets("Sourcing_Count").Range("h5:al5")
'Set chtName = "Test"
Set cht = ActiveSheet.Shapes.AddChart(xlColumnClustered).Chart
' MsgBox cht


'cht.SeriesCollection.NewSeries
cht.SeriesCollection(1).Name = "Sourcing Trend"
MsgBox cht.SeriesCollection(1).Name
cht.SeriesCollection(1).Values = rng
imageName = Application.DefaultFilePath & Application.PathSeparator & "TempChart.gif"
cht.Export Filename:=imageName
ActiveSheet.ChartObjects(1).Delete
frmPanIndia.imgChartDisplay.Picture = LoadPicture(imageName)

End Sub