Hi Zabi,
Did you ever manage to resolve this issue. If not, let me know and
I'll take another look at this again
Kind regards
Rich
--- In NADUG@yahoogroups.com, "Zabi" <zsalauddin@...> wrote:
>
> Hi Rich,
>
> Thanks for the reply, yes i got it's an error in creating a custom
> chart type, i don't know how you created your chart type, when i
> recreated it in Excel 2003 it alerts same error message but chart
> type is been used in the output, but i "guess" due to this error
msg
> displayed in mrStudio, some of the formatting stuff present in
custom
> chart type are not being taken care in the output.
>
> Thanks,
> --- In NADUG@yahoogroups.com, "spssrich" <richnwilson@> wrote:
> >
> > --- In NADUG@yahoogroups.com, "Zabi" <zsalauddin@> wrote:
> > >
> > > Hi,
> > >
> > > I am new to Dimensions. I am using mrStudio/TOM for tabulation
> > > requirement. I need to report the results in custom chart
types,
> when
> > > i do that it displays an error message:
> > > Export error(): Unable to get the MajorUnit Property of the Axis
> > > Class: Exception Occured.
> > >
> > > This error displays only when you access custom chart types
> created in
> > > excel.
> > >
> > > Please help!
> > >
> > > Thanks,
> > > Zabb
> > >
> >
> > Hi Zabb,
> > Without seeing your script, the C:\Documents and
> > Settings\username\Application Data\Microsoft\Excel\Xlusrgal.xls
> file
> > and knowing what version of Excel you are using, it would be hard
> to
> > troubleshoot this.
> >
> > That being said, can you copy the following code into a mrs
script:-
> >
> > Dim TableDoc,Table
> > Set TableDoc = Createobject("TOM.Document")
> >
> > With TableDoc
> > .DataSet.Load("C:\Program Files\SPSS
> > Dimensions\DDL\Data\Quanvert\Museum\qvinfo", "mrQvDsc")
> >
> > With .Tables
> > set Table= .AddNew("Table" + CText
> > (TableDoc.Tables.Count), "gender*age")
> > SetProperty(Table.Properties, "ChartType", "SPSS Demo
> > Bar")
> > End With
> >
> > .Populate()
> >
> > With .Exports.mrHtmlExport
> > .Properties["OverwriteOutput"] = True
> > .Properties["LaunchApplication"] = True
> > .Export()
> > End With
> > End With
> >
> > Sub SetProperty(Properties, Name, Value)
> > Dim Property
> > Set Property = Properties.FindItem(Name)
> > If IsNullObject(Property) Then
> > Set Property = Properties.CreateProperty()
> > Property.Name = Name
> > Property.Value = Value
> > Properties.Add(Property)
> > Else
> > Property.Value = Value
> > End If
> > End Sub
> >
> > I will email the SPSS Demo Bar custom chart I have and if you can
> copy
> > this into your C:\Documents and Settings\username\Application
> > Data\Microsoft\Excel\Xlusrgal.xls file and, assuming you have the
> DDL
> > installed locally, can you run this script and let me know if
this
> > works.
> >
> > This script does work for me, I am using 5.5 Patch 1 and Excel
2003
> SP3.
> >
> > If this does work for you, switch the custom chart name and see
if
> that
> > works. If it doesn't then, there must be something wrong with the
> > custom chart you created. Did you create this from an original
> export ?
> > If not follow the DDL link: DDL.chm::/charts_custom.htm to do
this
> (To
> > use this DDL link, just right click on DDL title bar and paste
the
> URL
> > into the "Jump to URL".
> >
> > If this does work (my script with your custom chart), if may be
> > something to do with your script.
> >
> > Kind regards
> > Rich Wilson
> >
>