How to keep zoom set to 100% in a workbook?

[dkopp3]

I'm currently making a form in excel which can dynamically change picture placements based on user input. So far I've done everything without needing to use any VBA. My current issue is that when I zoom out the pictures become misaligned and don't always realign when I zoom back in so I'm looking for a way to keep the zoom at 100% whenever a user might try to change it. I've done a bit of research on the code required but I figured I'd ask here myself.

Here's what I can think of to do:

<code style="margin: 0px; padding: 0px; font-style: inherit; font-weight: inherit; line-height: 12px;">If Windows("WorkbookName.xlsx").Zoom <> 100 Then
   Windows("WorkbookName.xlsx").Zoom = 100
End If
</code>

This could be totally off but that's why I'm here. Any suggestions on how to do this and where to place the code would be much appreciated.

Thanks!

 

[Jaafar Tribak]

How about using this trick ... Place the following code in the ThisWorkbook Module :

Option Explicit

Private WithEvents cmndbrs As CommandBars


Private Sub Workbook_Open()
    Call SetCommandBarsHook
End Sub


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Call SetCommandBarsHook
End Sub


Private Sub SetCommandBarsHook()
    Set cmndbrs = Application.CommandBars
    Call cmndbrs_OnUpdate
End Sub


Private Sub cmndbrs_OnUpdate()
    If Windows(Me.Name).Zoom <> 100 Then Windows(Me.Name).Zoom = 100
End Sub