Shape not staying in position

[Blobajob88]

I'm trying to develop a progress bar, which consists of a static rectangle with an internal rectangle that moves with time. I've set the width, height and left, top positions. It works fine for me on my big monitor and my laptop but when I get someone else to open it on their screen it shifts position. I've included what it looks like for me compared with someone else below, as well as a snippet of the code. Does anyone know what the issue is?

What happens on someone else's screen

Sub CycleProgression2()



If ThisWorkbook.Sheets("Tunable Analyser").Range("AX5").Value = "Go" Then

ThisWorkbook.Sheets("Tunable Analyser").Shapes("Cycle Progression").Width = 20
ThisWorkbook.Sheets("Tunable Analyser").Shapes("Cycle Progression").Height = 9
ThisWorkbook.Sheets("Tunable Analyser").Shapes("Cycle Progression").Top = 135.5
ThisWorkbook.Sheets("Tunable Analyser").Shapes("Cycle Progression").Left = 748.4933
ThisWorkbook.Sheets("Tunable Analyser").Shapes("Rectangle 101").Top = 133.48
ThisWorkbook.Sheets("Tunable Analyser").Shapes("Rectangle 101").Left = 747.6553

Application.OnTime Now + 0.00003, "CycleProgression3"

Else


    Call hideMessages.HideNonStopMeasurementMessages

End If


End Sub

Sub CycleProgression3()



If ThisWorkbook.Sheets("Tunable Analyser").Range("AX5").Value = "Go" Then

ThisWorkbook.Sheets("Tunable Analyser").Shapes("Cycle Progression").Width = 40
ThisWorkbook.Sheets("Tunable Analyser").Shapes("Cycle Progression").Height = 9
ThisWorkbook.Sheets("Tunable Analyser").Shapes("Cycle Progression").Top = 135.5
ThisWorkbook.Sheets("Tunable Analyser").Shapes("Cycle Progression").Left = 748.4933
ThisWorkbook.Sheets("Tunable Analyser").Shapes("Rectangle 101").Top = 133.48
ThisWorkbook.Sheets("Tunable Analyser").Shapes("Rectangle 101").Left = 747.6553


Application.OnTime Now + 0.00003, "CycleProgression4"

Else


    Call hideMessages.HideNonStopMeasurementMessages

End If


End Sub

 

[saboh12617]

Hello,

I think it is related to the .Top property that can act very inconsistently with zoom level and screen size. If i were you i would put the rectangular bar in a cell, and use the cell's .Top and .Left properties to position my bar. You can also have the bar being the exact same size as the cell, and use some transparent borders if you want to make it look "inside" as you did.

By referring to a cell and not the worksheet, you should have more consistent results on shapes placement.