Good morning,
I have an excel worksheet which I format to a column width of 2.86 (not sure what the unit is).
A variety of data is ultimately displayed on this worksheet.
This worksheet is then provided for other staff to use.
However, when this file is opened on some other other computer(s) the column widths change (e.g. from 2.86 to 3).
The professional "look" when the worksheet is viewed on this/these other compters is negatively compromised.
For example, any shapes inserted by me on the original worksheet appear to the left of their intended position(s).
Is there a solution for this issue?
my code for formatting the worksheet
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
<<< This thread has moved to VBA Macros >>>
>>> use code - tags <<<
I have an excel worksheet which I format to a column width of 2.86 (not sure what the unit is).
A variety of data is ultimately displayed on this worksheet.
This worksheet is then provided for other staff to use.
However, when this file is opened on some other other computer(s) the column widths change (e.g. from 2.86 to 3).
The professional "look" when the worksheet is viewed on this/these other compters is negatively compromised.
For example, any shapes inserted by me on the original worksheet appear to the left of their intended position(s).
Is there a solution for this issue?
my code for formatting the worksheet
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
<<< This thread has moved to VBA Macros >>>
>>> use code - tags <<<
Code:
'FORMAT PAGES
Dim H As Worksheet
Set H = Worksheets("HOME")
H.Activate
H.Cells.RowHeight = 9.75
H.Cells.ColumnWidth = 2.86
H.Cells.Font.Name = "Arial"
H.Cells.Font.Size = 11
ActiveWindow.Zoom = 120
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
my code for inserting a shape
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sh_lft = 5 * 18.75
sh_tp = 10 * 9.75
sh_len = 6 * 18.75
sh_ht = 2 * 9.75
Set omnu = ActiveSheet.Shapes.AddShape(msoShapeRectangle, sh_lft, sh_tp, sh_len, sh_ht)
With omnu
.Name = "mnu"
.OnAction = sb_rout
.Fill.ForeColor.RGB = mn_5_clr
.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = mn_clr
.TextFrame2.TextRange.Characters.Font.Name = "Arial"
.TextFrame2.TextRange.Characters.Font.Size = 9
.TextFrame2.VerticalAnchor = msoAnchorMiddle
.TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
.TextFrame2.TextRange.Characters.Text = "any type of text"
.Line.Visible = msoFalse
.Shadow.Visible = msoFalse
.TextFrame2.TextRange.Font.UnderlineStyle = msoUnderlineSingleLine
End With
Last edited by a moderator: