Anchoring rectangle (1 Viewer)

[Shinsen]

Hi,
I have rectangle placed on form and I change its (rectangles)height property through vba.
Its always anchored like default (top-left) and even if I change anchoring properties to bottom rectangle stil act as top-left anchored.

Pls help

 

[Micron]

You are attempting to change the anchor property of a rectangle on an open form via vba, or you are doing it in design view and then saving the form?

 

[Shinsen]

Thx for the reply. I want to change anchoring point of rectangle on design view.
On form view I click button which changes rectangle height but its behave always like top left anchored and I would like to have it bottom anchored. The Main vision is to create something like chart with column that i can Play with its height.

 

[arnelgp]

anchoring is based on the Form's size not the control's size.
when the Form resize, the control follows.

maybe use subform as your container for the rectangle.
resizing the subform also resize the rectangle.

 

[Shinsen]

Hey,
Its good tip thank you. Will give it a try.
I started to compensate rectangle movement with top property and i figured out that height and top are 1 to 1.
Cheers

 

[Micron]

Post your code? If it uses inch values it might appear as you say. The value should be in twips.

 

[Micron]

If the subform container idea isn't suitable, I thought of another way. Since these vba values are in Twips (assume 1" is 1440 on your pc) :
- suppose your base line is at 4320
- you want a 1" tall line (1440)
- you set your .Top value to be 4320 - 1440. This locates the top of the bar (box control).
- you set your .Height value to 1440 This stretches the bar downward 1", returning the bottom back to the base line

According to my testing, it works whether the form is at full size or not. The vertical anchor was TOP.

 

[Micron]

I threw together a test form and made some pics to demonstrate the effects of various values. Last pic shows it still works when the form is resized.

.

.