how to change the height and width of shape

[Richard]

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.

[Narcís]

Hi Richard,

You can loop through the tools collection:

Code: Select all

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