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.
