Forum Discussion

Sue_G's avatar
Sue_G
Brass Contributor
Mar 11, 2021

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 the page.  I have attached the Excel file along with a Word doc that has screen shots of the difference.  Note:  When reopen the file, the text box has moved, but the text is still within the box, and if you were to click on the text, the text moves out of the box.  I have tried all different property settings:  Don't move or size with cells, locked, unlocked, lock text, resize to fit text, etc.  I can seem to figure out why it's doing this.

 

If I resize the sheet, and then resize back to 100%, everything moves/resized back to where it was originally.

 

I just discovered that the file will print correctly, so it's not a huge problem, but it would be nice if they didn't move/resize on their own.

excel

5 Replies

  • NikolinoDE's avatar
    NikolinoDE
    Platinum Contributor
    Mar 17, 2021
    Sometimes many choices can be disruptive. Excel is like a Swiss Army Knife, many options that you don't always need. But when you need them, they are always there. :))
    • Sue_G's avatar
      Sue_G
      Brass Contributor
      Mar 17, 2021
      Yes, this works, however, I was wondering how to keep it from happening. I have several other files with the same layout, and they don't move regardless of the view. The text box settings are the same among all files. Thank you!
      • NikolinoDE's avatar
        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.

Resources