Public Sub SetChartOptions(ByVal iXlChartType As xlChartType, _
ByVal iPlotAreaWidth As Integer, ByVal iPlotAreaHeight As Integer)
With oExcelChart
.ChartType = iXlChartType
If (iPlotAreaHeight > 50) Then .PlotArea.Height = iPlotAreaHeight
If (iPlotAreaWidth > 50) Then .PlotArea.Width = iPlotAreaWidth
End With
End Sub
|