Changing the size of a rectangle with VBA (1 Viewer)

[echorley]

I have a report where I am trying to change the size and position of a rectangle based on student scores. I have the rectangle in the detail section and the code in the detail section

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

ACTMathPercent = Me.ACT_Math_Percent
PACTHeight = (ACTMathPercent / 100) * 2.5
PACTTop = 3 - (ACTMathPercent / 100) * 2.5

Me.PACT.Width = 0.5
Me.PACT.Height = PACTHeight
Me.PACT.Top = PACTTop
Me.PACT.Left = 1.5

End Sub

However, the rectangle does not appear when I Print Preview the report. Any ideas?

 

[vbaInet]

Set the Border Style property of the box control (or rectangle) to Solid. This can be found on Format tab.

 

[SOS]

You need to use TWIPS for your measurements. By saying .5 or 1.5 you are telling it to use 1.5 Twips which 1440 Twips make up an inch.

So try this:

PACTHeight = ((ACTMathPercent / 100) * 2.5) * 1440
PACTTop = (3 - (ACTMathPercent / 100) * 2.5) * 1440

Me.PACT.Width = 0.5 * 1440
Me.PACT.Height = PACTHeight
Me.PACT.Top = PACTTop
Me.PACT.Left = 1.5 * 1440