Very Computer

With method:

set cs = createobject("ADOMD.Cellset")
   set cs.ActiveConnection = pt.Connection
   cs.Open _
   "select " & _
   "AddCalculatedMembers(Measures.members) " & _
   "on columns " & _
   "from " & CubeName & " " & _
   "cell properties format_string "
   for i = 0 to cs.axes(0).Positions.Count - 1
      totalName = cs.axes(0).Positions(i).Members
(0).UniqueName
      MyPT.ActiveView.Totals(totalName).NumberFormat = _
          cs(i).Properties("FORMAT_STRING")
   next

only "Normal Measures" are formatted, Calculated members
are not formatted.

Question1: What's the correct Syntax for formatting
Calculated members?

Question2: With set cs = createobject("ADOMD.Cellset") an
ActiveX control is created.
What's the way to avoid the security warning for the
ActiveX control?

Many Thanks to all.

Hi Reinfried,

The OWC Toolpack includes sample code that might help you at:
http://msdn.microsoft.com/downloads/default.asp?url=/downloads/sample...
l=/msdn-files/027/001/681/msdncompositedoc.xml

The format of global calculated members is defined on the server by the dba.
The format of session calculated members is defined in the CREATE MEMBER ...
or WITH MEMBER statement with the FORMAT_STRING property.

There was a change how the format of a calculated measure is inferred in
sp3. It's much smarter now - before it took the format from the first
measure in the cube. Now it infers formatting from members used in the
calculation.

Hope this helps,
Richard

--
This posting is provided "AS IS" with no warranties, and confers no rights.
Use of included script samples are subject to the terms specified at
http://www.microsoft.com/info/cpyright.htm.

Quote:> The PivotTable control(ActiveX) does not use the
> Formatted_Value cell property.
> With  e.g. MyPT.ActiveView.UseProviderFormatting=true,
> this will result in measures being displayed as left
> justified text.

> With method:

> set cs = createobject("ADOMD.Cellset")
>    set cs.ActiveConnection = pt.Connection
>    cs.Open _
>    "select " & _
>    "AddCalculatedMembers(Measures.members) " & _
>    "on columns " & _
>    "from " & CubeName & " " & _
>    "cell properties format_string "
>    for i = 0 to cs.axes(0).Positions.Count - 1
>       totalName = cs.axes(0).Positions(i).Members
> (0).UniqueName
>       MyPT.ActiveView.Totals(totalName).NumberFormat = _
>           cs(i).Properties("FORMAT_STRING")
>    next

> only "Normal Measures" are formatted, Calculated members
> are not formatted.

> Question1: What's the correct Syntax for formatting
> Calculated members?

> Question2: With set cs = createobject("ADOMD.Cellset") an
> ActiveX control is created.
> What's the way to avoid the security warning for the
> ActiveX control?

> Many Thanks to all.