pivot table x-axis scroll bar to keep right doesn't work

[mfikrirahmat]

why doesn't work in chart type pivot table , have a solution ?

-this script makro

sub ChartXScrollInitRight

stop

      s=ActiveDocument.NoOfSheets

      for i = 0 to s-1

            set s=ActiveDocument.Sheets(i)

            objs=s.GetSheetObjects

            for j=lbound(objs) to ubound(objs)

                strCHID = objs(j).GetObjectID

                strSearch = "CH01,CH02"

                intFound =  instr(strSearch,mid(strCHID,10,4))

                if intFound > 0 then

                   Set rep = ActiveDocument.GetSheetObject(strCHID)

                   set p = rep.GetProperties

                   p.ChartProperties.XScrollInitRight = True

                   rep.SetProperties p

               Else

'     Do nothing'

               end if

            next

      next

end sub