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 t...
excel
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.

    • Sue_G's avatar
      Sue_G
      Brass Contributor
      Mar 17, 2021
      Thanks, Nikolino. It's good to know there's a workaround for this, but it's mainly an annoyance!

Resources