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