Text Boxes Moving/Resizing on their own

Hello, I have an Excel file that includes a text box and shapes. When I created the document, everything looked good; however, after saving and reopening, the text box and shapes have moved on t...

15140 Moving Text Box.xlsx23 KB

Excel Text Box Issue.docx56 KB

excel

NikolinoDE

Platinum Contributor

Mar 17, 2021

Sue_G

There are options to adjust the zoom setting via VBA code.

Depending on the screen, it would have to be set.

'Examble 1
Sub tt()
Dim objWorksheet As Worksheet
    Application.ScreenUpdating = False
    For Each objWorksheet In ActiveWorkbook.Worksheets
      objWorksheet.Activate
      ActiveWindow.Zoom = 100
    Next
    Application.ScreenUpdating = True
End Sub

'Examble 2
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.Zoom = 100
End Sub

I would be happy to know if I could help.

Nikolino

I know I don't know anything (Socrates)

* Kindly Mark and Vote this reply if it helps please, as it will be beneficial to more Community members reading here.