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
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