ActiveSheet.Shapes object location different on different computers

[WhoCanDo]

Using this code I am successfully positioning and rotating an object on my Excel sheet on multiple computers. However, on a laptop the objects are not in the correct location.

should be this

is this on the laptop

My thoughts are that it's the screen resolution differences. I set both to apps - 100% & resolution 1920 x 1080 with no solution.

Can someone suggest another direction?

Set cl = Range(Cells(ActiveCell.Row, 4).Address)
x1 = cl.Left
y1 = cl.Top

Set ActiveShape = ActiveSheet.Shapes.AddTextEffect(msoTextEffect31, "0", "Arial", 8, msoFalse, msoFalse, x1 - 9, y1 - 14)
ActiveShape.TextFrame.Parent.Rotation = -90
ActiveShape.Name = "A0" & ActiveCell.Row

 

[WhoCanDo]

Here is a quick test I did.

With a column width of 11.29 and a row height of 15 ....

Sub test()
'
For i = 1 To 10 ' column
For j = 1 To 10 ' row
Cells(j, i).Select
Set cl = Range(Cells(ActiveCell.Row, ActiveCell.Column).Address)
ActiveCell.Value = cl.Left & " / " & cl.Top
Next j
Next i
End Sub


On most PC's the x / y cell co-ordinates are...

0 / 0	63 / 0	126 / 0	189 / 0	252 / 0	315 / 0	378 / 0	441 / 0	504 / 0	567 / 0
0 / 15	63 / 15	126 / 15	189 / 15	252 / 15	315 / 15	378 / 15	441 / 15	504 / 15	567 / 15
0 / 30	63 / 30	126 / 30	189 / 30	252 / 30	315 / 30	378 / 30	441 / 30	504 / 30	567 / 30
0 / 45	63 / 45	126 / 45	189 / 45	252 / 45	315 / 45	378 / 45	441 / 45	504 / 45	567 / 45
0 / 60	63 / 60	126 / 60	189 / 60	252 / 60	315 / 60	378 / 60	441 / 60	504 / 60	567 / 60
0 / 75	63 / 75	126 / 75	189 / 75	252 / 75	315 / 75	378 / 75	441 / 75	504 / 75	567 / 75
0 / 90	63 / 90	126 / 90	189 / 90	252 / 90	315 / 90	378 / 90	441 / 90	504 / 90	567 / 90
0 / 105	63 / 105	126 / 105	189 / 105	252 / 105	315 / 105	378 / 105	441 / 105	504 / 105	567 / 105
0 / 120	63 / 120	126 / 120	189 / 120	252 / 120	315 / 120	378 / 120	441 / 120	504 / 120	567 / 120
0 / 135	63 / 135	126 / 135	189 / 135	252 / 135	315 / 135	378 / 135	441 / 135	504 / 135	567 / 135

and on the problem PC, they are...

0 / -10	66 / -10	132 / -10	198 / -10	264 / -10	330 / -10	396 / -10	462 / -10	528 / -10	594 / -10
0 / 4.5	66 / 4.5	132 / 4.5	198 / 4.5	264 / 4.5	330 / 4.5	396 / 4.5	462 / 4.5	528 / 4.5	594 / 4.5
0 / 19	66 / 19	132 / 19	198 / 19	264 / 19	330 / 19	396 / 19	462 / 19	528 / 19	594 / 19
0 / 33.5	66 / 33.5	132 / 33.5	198 / 33.5	264 / 33.5	330 / 33.5	396 / 33.5	462 / 33.5	528 / 33.5	594 / 33.5
0 / 48	66 / 48	132 / 48	198 / 48	264 / 48	330 / 48	396 / 48	462 / 48	528 / 48	594 / 48
0 / 62.5	66 / 62.5	132 / 62.5	198 / 62.5	264 / 62.5	330 / 62.5	396 / 62.5	462 / 62.5	528 / 62.5	594 / 62.5
0 / 77	66 / 77	132 / 77	198 / 77	264 / 77	330 / 77	396 / 77	462 / 77	528 / 77	594 / 77
0 / 91.5	66 / 91.5	132 / 91.5	198 / 91.5	264 / 91.5	330 / 91.5	396 / 91.5	462 / 91.5	528 / 91.5	594 / 91.5
0 / 106	66 / 106	132 / 106	198 / 106	264 / 106	330 / 106	396 / 106	462 / 106	528 / 106	594 / 106
0 / 120.5	66 / 120.5	132 / 120.5	198 / 120.5	264 / 120.5	330 / 120.5	396 / 120.5	462 / 120.5	528 / 120.5	594 / 120.5

 

[yky]

Seems the row height and column width on the problematic pc is different from others.

 

[WhoCanDo]

We are all using the same template and the sheet is locked from accidental changes like that.

Also, both PC's are 1920 x 1080 screen resolution.

Interestingly, cell A1 is at 0, -10. Minus 10 is off the sheet!

Has no one experienced this before?

 

[WhoCanDo]

Just tested another laptop and the first cell is 0 / -12

The next two laptops all list A1 as 0 / 0

Also tested other PC's with different graphics cards to see if the graphics cards were affecting the results. They all listed A1 as 0 / 0 good.

 

[Jaafar Tribak]

This worked for me

Set cl = Range(Cells(ActiveCell.Row, 4).Address)
X1 = cl.Left
Y1 = cl.Top

Set ActiveShape = ActiveSheet.Shapes.AddTextEffect(msoTextEffect31, "0", "Arial", 8, msoFalse, msoFalse, X1, Y1)

With ActiveShape
    .Left = .Left - .Width / 2
    .Top = .Top - .Height * 6 / 7
    .TextFrame.Parent.Rotation = -90
    .Name = "A0" & ActiveCell.Row
End With

 

[WhoCanDo]

Hi Jaafar,

Your code is a little neater that mine but still relies on cl.Left = 0 and cl.Top = 0 for cell A1

When the computer returns 0 / -10 then it is still misplaced.

However, you have given me a clue. All the cell numbers, x & y, are incrementing the same amount. Y is multiples of 15 on the PC and 14.5 on the laptop. On another laptop it's 14.4

I will calculate the different between cells and use the result as a modifier.

Thanks