Sheet에 존재하는 모든 Object에 대한 ID 및 Type 출력

sub test

Objects = ActiveDocument.Sheets("SH02").GetSheetObjects

For i = lBound(Objects) To uBound(Objects)

    msgbox(i&": "&Objects(i).GetObjectID&", "&Objects(i).GetObjectType)

next

end sub

Sheet에 존재하는 모든 Object에 대한 ID 및 Type 출력

컨테이너를 만났을때

For i = lBound(Objects) To uBound(Objects)

  msgbox(i&": "&Objects(i).GetObjectID&", "&Objects(i).GetObjectType)

if Objects(i).GetObjectType = 36 then

set CTP = Objects(i).GetProperties

for j = 0 to CTP.ContainedObjects.Count - 1

msgbox(Objects(i).GetObjectID&": "& j&": "&CTP.ContainedObjects.Item(j).Id_OBSOLETE)

next

  end if

next