Dimensions Properties

[#1]

Hello QVworld! I searched the internet and much in our forum about the properties of the dimensions, I could not any reference on subtotal, need to create a button that prompts the subtotal when you click.
Something similar to the below script that changes the sorting. If there is any book or tutorial on the properties of graphs, expressions and dimensions, would be heaven!!!

Prop.Dimensions.Item(0).SortCriteria.SortByAscii=0

Prop.Dimensions.Item(0).ShowPartialSums = 1

Obrigado!!! (Thanks)

[#2]

You can do two charts. One with the Partial Sum and the other without, one variable and one button.

1) Chart whitout Partial Sum.

Proprerties Chart.

2) Chart with partial Sum

Proprerties Chart.

3) Button

[#3]

Fernando Thanks for the suggestion, I say that had not really thought about this solution, but I have some buttons controlling the expressions and kept looking for the solution along the lines of my questioning.
I found the answer I expected and I appreciate the suggestion.

sub exp4

set chart = ActiveDocument.GetSheetObject("CH01")
set cp = chart.GetProperties
set dims = cp.Dimensions
set v = ActiveDocument.GetVariable("VTOT")
Cnt= v.getcontent.String

if Cnt="0" then
dims(4).ShowPartialSums = false
v.setContent "1",true
else
dims(4).ShowPartialSums = true
v.setContent "0",true
end if

chart.SetProperties cp

end sub

Obrigado!