Help to write a macro

Mon, 31 Oct 2011 08:45:28 GMT

Dear All,

Can anyone please help me to write or modify my macro.

Actually my Current Macro help me to do Sort by in the Chart Object,but only if i Select any one Field if more than one field appears or a single field appears,

I want a macro which should help me to sort the Objects by Default if only one field apperas in Sort by Object.

Ex:

I have a list box as Measures, if i select any field in Measures then Some fields come in my new Table as Sort by as Caption, If i Select any 1 Sort by Fields it Does the Sorting but if Only one Fields Come in the Sort By Caption then I have to Selct it to do the process but i Want it to be By Default do Soring in Chart if Only one Field Apperas as Sort By.

My Current Macro is :

for iloop=0 to objML.count-1

if (objML.Item(iloop).Text=ActiveDocument.GetVariable("ML_Sort_UA2").GetContent.String) then

sortBY1=iloop

exit for

end if

a=0

if(sortBY1<>"") then

Mnu2 = objM.Item(sortBY1).Text

end if

for j=0 to objM.count-1

if(a=0)then

chart.AddExpression Mnu2

set p = chart.GetProperties

set exps = p.Expressions.Item(0).Item(0).Data.ExpressionVisual

if Charttype="ComboChart" then

exps.ShowAsBar = false

exps.ShowAsLine = true

exps.ShowAsSymbol = true

End if

'exps.Label.v = objML.Item(sortBY1.GetContent.String).Text

exps.Label.v = objML.Item(sortBY1).Text

chart.SetProperties p

a=a+1

end if

if(a<>0) then

if(Mnu2<>objM.Item(j).Text) then

Mnu1 = objM.Item(j).Text

chart.AddExpression Mnu1

set p = chart.GetProperties

set exps = p.Expressions.Item(a).Item(0).Data.ExpressionVisual

if Charttype="ComboChart" then

exps.ShowAsBar = false

exps.ShowAsLine = true

exps.ShowAsSymbol = true

End if

exps.Label.v = objML.Item(j).Text

chart.SetProperties p

a=a+1

end if

Please Help Regards,

Pranav

topic Help to write a macro in QlikView

Help to write a macro