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
