msowc.cab

[cleake]

We have been using Office Web Components to draw graphs for our intranet for
quite awhile. These pages were originally published using frontpage and have
been modified several times over using a variety of tools. A server was
retired and msowc.cab these pages were pointing to was lost. It has
subsequently been reloaded from a Office 2000 CD, but the pages using it
continue to error. There is probably not anyone left on Office 2000 at this
time. Many of us are on 2007, but most are still on office 2003. Using the
original msowc.cab from Office 2000 worked fine for all of our users. Any
idea, short of changing a bunch of code how to make these pages work again?
--------------------------------------------------- Code snippet follows
------------------
<object classid="clsid:0002E500-0000-0000-C000-000000000046" id="chtEncumb"
codebase="file:\\is\o2k$\msowc.cab" width="350" height="300">
<param name="XMLData" value="<xml
xmlns:x="urn:schemas-microsoft-comffice:excel">
<x:WebChart>
<x:OWCVersion>9.0.0.3821</x:OWCVersion>
<x:Width>9260</x:Width>
<x:Height>7938</x:Height>
</x:WebChart>
</xml>">
<parm name="ScreenUpdating" value="-1"></object>
</td></tr></table>
<p align=right style="font-size:6pt">EXPLED.MAS-R</p></td></tr></table>
</body></html>
<script language="VBScript">
<!--
Sub Window_Onload()
Chart
End Sub
Sub Chart
Set c = chtEncumb.Constants
Set chtEncumbChart = chtEncumb.Charts.Add
chtEncumbChart.Type = c.chChartTypeColumnStacked
Set oSeries1 = chtEncumbChart.SeriesCollection.Add
With oSeries1
.SetData c.chDimCategories, c.chDataLiteral, Array("Salaries &
Benefits","Services & Supplies","Other")
.SetData c.chDimValues, c.chDataLiteral,
Array(522197.86,27288.71,60578.68)
.Points(0).Interior.Color = "#8080FF"
.Points(1).Interior.Color = "#802060"
.Points(2).Interior.Color = "#FFFFA0"
End With
Set oSeries2 = chtEncumbChart.SeriesCollection.Add
With oSeries2
.SetData c.chDimCategories, c.chDataLiteral, Array("Salaries &
Benefits","Services & Supplies","Other")
.SetData c.chDimValues, c.chDataLiteral, Array(194081.14,111.29,30289.32)
.Interior.Color = "white"
End With
Set axs = chtEncumbChart.Axes(0)
axs.NumberFormat = "Currency"
End Sub
-->
</script>
------------------------------- Any advice is appreciated.

 

[Alvin Bruney [ASP.NET MVP]]

change the object tag <object
classid="clsid:0002E500-0000-0000-C000-000000000046 to the version that is
in Office 2003 (owc 11)
That should mostly work. Depending on how complex your graphs are you may
have to edit the code a bit.

--

Regards,
Alvin Bruney [MVP ASP.NET]

[Shameless Author plug]
The O.W.C. Black Book, 2nd Edition
Exclusively on www.lulu.com/owc $19.99