Script to set minimized caption hight for all charts

[bnichol]

Does anyone know how I can modify this script to set the minimized caption height for all charts in an application???

sub ListObjects
for s = 0 to ActiveDocument.NoOfSheets - 1
set vSheet= ActiveDocument.GetSheet(s)
Objects = vSheet.GetSheetObjects
For i = lBound(Objects) To uBound(Objects)
set vObject = Objects(i)
set vObjectProp = vObject.GetProperties
vOK = 0
'chart object...
if vOK=0 AND ((vObject.GetObjectType >=10 AND vObject.GetObjectType <=16) OR (vObject.GetObjectType >=20 AND vObject.GetObjectType <=22)) then
Enter code Here
vOK = 1
end if
Next
next
end sub

Thanks in advance,

B.