0 Replies Latest reply: Apr 20, 2016 5:09 AM by mfikri rahmat RSS

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

    mfikri rahmat

      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