I have more than 10,000 lines of VBA code in one aplication. When kicked off
initially I received the following message during open of my application:

"Prop bitmap DLL not loaded". What can I do to overcome this problem or is
there a fix for it?

Using a second ".Name" or a second ".XValues" command in Excel for charting
creates a dump which I replied yes to submit to MS. This error totally
destroys Excel's code checking feature (simple .LineType commands will prior
to this abnormal end be processed ok, however, after this abnormal end it is
being flagged as an invalid command). I had to repair Office 2007 in order to
restore my Office 2007 environment.

Here is an example of my code which fails:

With ActiveChart
.Select
.SetSourceData Source:=Sheets("Life").Range("B1:C" & Max_Year + 2),
PlotBy:=xlColumns
.HasTitle = True
.ChartTitle.Text = "Life length calculated from data on the DataBase
Sheet. " + Scope + " scope." + vbCr + "Graph produced: " + Str(Now()) + "."
.SeriesCollection(1).Name = "Number of deaths at a particular age."
' Office 2007 bug .SeriesCollection(2).Name = "Average 5 Trendline"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Text = "Age when dying for" +
Str(ii - 3) + " family members."
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Text = "Frequency of deaths"
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
.SeriesCollection(1).XValues = "=Life!R1C1:R" & Max_Year + 2 & "C1"
' Office 2007 bug .SeriesCollection(2).XValues = "=Life!R1C1:R" &
Max_Year + 2 & "C1"
'.Deselect
End With

The ".Deselect" command is no longer allowed.

".Characters" is no longer supported either, it has to be left out in Office
2007, example:
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Age distribution."
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "All
persons."
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Age in years."
End With

Cheers,
Peter Sie.