Using VB macros for changing object size and X,Y position

Hi all!.

Keep on with my sui generis questions...

We want to change the size of the pictures in the project, from 1280 X 1024 to 1024 X 768. We have a picture window object of 934 X 1280 where we show the pictures, and the size of this picture window has changed to727 X 1024.

We have many pictures to be resized so I thought in using a macro in order to scan each object in the picture and change Height, Width, Left and Top properties. Height and Top properties are multiplied by (727/934) while Width and Left are by (1024/1280) to keep all more or less in proportion.

I have read posts about using AdaptSize in Graphics RunTime. Whe have to resize these pictures anyway.

The VB code that I write todo that is the following:

Public Sub prueba()

Dim objeto As HMIObject

Set colObject = ActiveDocument.HMIObjects

For Each objeto In colObject

objeto.Height = objeto.Height * 0.79
objeto.Width = objeto.Width * 0.8
objeto.Top = objeto.Top * 0.79
objeto.Left = objeto.Left * 0.8

Next objeto

End Sub

When I run this code, the rectangles, lines and similars with are no grouped are changed porperly. Howevertext fontsand I/O fields are not. Controls such buttons, alarms or trend controls are changed well but text in buttons aren't.

I must confess I didn't use macro tools until now. And my knownledge about VB are very limited. So I suppose that I'm not scanning the object properly with this rudimentary code.

I attach four *.PDL sample files: two "before macro" and two "after macro" to show you what I mean.

Any idea about wath the problem can be?.

TIA!