Count Number of Objects by Macro Code

Tue, 19 Aug 2014 11:50:27 GMT

Hi All,

I am creating charts with Macro. So it has random chart id's. Also these charts can be Bar or Pie or any chart.

I want to count the number of chart objects with Macro.

If anyone has any idea then pls share....

Thanks in Advance.

Re: Count Number of Objects by Macro Code

marcus_sommer — Tue, 19 Aug 2014 12:20:10 GMT

Hi Monika,

habe a look on this example from APIGuide.qvw (it's in your install-folder):

rem ** remove borders from all listboxes on active sheet **

set x = ActiveDocument.ActiveSheet.GetSheetObjects

Objects = x.SheetObjects

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

set obj = Objects(i)

if obj.GetObjectType = 1 then 'list boxes

set p = obj.GetProperties

p.Layout.Frame.BorderEffect = 0 'no border

obj.SetProperties p

end if

- Marcus