[RESOLVED] Saving an Excel file using VB6

[nightheart]

I did add the part you advised and changed the selection to ChartArea instead of PlotArea, but no success yet.

With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "All Cases"
        .HasLegend = True
        .Legend.Font.ColorIndex = 5
    End With

.ActiveChart.ChartArea.Select

[nightheart]

It was only the OLE object need to be resized in order to display everything. Thank your very much westconn1.

[zeezee]

Hey NightHeart, something I want to say about your code.
You have used Active Chart and Workbook in your code. I also used this before Si_the_Geek pointed out its not good to use them. See the following

http://www.vbforums.com/showthread.php?t=391665
http://www.vbforums.com/showthread.php?t=485465 Post # 5

So I suggest you change your code to avoid them