Forum Discussion
Sue_G
Mar 11, 2021Brass Contributor
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...
Sue_G
Mar 17, 2021Brass Contributor
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
Mar 17, 2021Platinum Contributor
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_GMar 17, 2021Brass ContributorThanks, Nikolino. It's good to know there's a workaround for this, but it's mainly an annoyance!