Header Picture Getting Resized?

I have macro that will add a Header and Footer to all pages as follows. But I'm seeing that my picture/image in the RightHeader is being resized based on the height/width of a page content?

Shouldn't the image end up the same fixed size for all worksheets/headers?

Sub AddHeader_and_Footer_ALL_Pages()
    Dim WrkSheet As Worksheet
    Dim Confidential As Variant
    Dim Font As Variant
    Dim Shp As Shape
    
    Confidential = "CONFIDENTIAL - FOR LENDER USE ONLY"
    Font = "&8 &B &I &""Arial"" "
        
    For Each WrkSheet In Worksheets
        With ActiveSheet.PageSetup.RightHeaderPicture
        .FileName = "C:\Data\Logo.jpg"
        .Height = 70
        .Width = 238
        End With
        
        With WrkSheet.PageSetup
            .RightHeader = "&G"
            .LeftFooter = Font & Now
            .CenterFooter = Font & Confidential
            .RightFooter = "&A" & Chr(10) & "&D &T"
        End With
    Next WrkSheet
End Sub