Steema Central

Posted: **Mon Dec 12, 2005 4:34 am**

hi;

when i add sevral items as Annotation.but i want to set the same height and width for each shape, how can i do it.

Posted: **Mon Dec 12, 2005 3:32 pm**

Hi Richard,

You can loop through the tools collection:

    For i = 0 To TChart1.Tools.Count - 1
        TChart1.Tools.Items(i).asAnnotation.Width = ToolWidth
        TChart1.Tools.Items(i).asAnnotation.Height = ToolHeight
    Next i

Steema Central

how to change the height and width of shape

how to change the height and width of shape