Zoom Level Affects Shapes Positioning

I have been having a problem getting consistent square shapes positioned with an activecell.offset based VBA function. I've noticed that, for example, my script below is affected by the zoom level on the worksheet which is a real pain. at 50% magnification, everything was perfect. But when i changed to like 80% view, the position of the squares was way out. Is it normal for worksheet zoom and column/row sizing differences to affect the activecell offset values?

Sub CreateRectangles()
            X = 1
            Do Until ActiveCell.Offset(X, X).Value = 0
            X = X + 1
            Loop
variable = Round(-0.026 * (X * X * X) + 0.56 * (X * X) + 24.7 * X + 5, 0)


Set Box = ActiveSheet.Rectangles.Add(ActiveCell.Offset(0, 0).Left, ActiveCell.Offset(0, 0).Top, variable, variable)


With Box
.ShapeRange.Fill.Transparency = 0.3
.Font.Size = 18
.Font.Name = "Trebuchet MS"
.Text = ActiveCell.NoteText


End With


End Sub

Re: Zoom Level Affects Shapes Positioning

ah, i didn't realise that the problem lie may lie in drawing objects being on a different layer of the sheet than the cells. So as Dave says, zoom doesn't affect offset value per se, but the position of shapes layers relative to cell layers.

yes only performing function on 50% or 100% is possible. but if anyone happens to discover a formula that can compensate for the 'zoom effect' on shape position, please share.