VBA не изменяет размер изображения, которое я хочу разместить в заголовке

Question

У меня есть рабочая тетрадь с несколькими листами. На каждом листе я должен разместить изображение в заголовке. На первой странице изображение должно быть на 90% от его размера и по центру, на других - на 50% и с правой стороны.

Для каждого листа вызывается следующая процедура для клиента "CPG" или "SUDECO"

К сожалению изображение на правой стороне просто 100%. Похоже, несмотря на то, что я вижу, что изображение было уменьшено при пошаговой отладке, в конце процедуры оно возвращается к исходному размеру.

Sub InsertHeaderPicture(pws As Worksheet, pclient As String, pLocation As Long)


If pLocation = xlCenter Then
With pws.PageSetup.CenterHeaderPicture
    If pclient Like "CPG" Then
      .Filename = "Z:\ADE\ADMINISTRATIFS ADE\LOGOS ET EN-TETES\CARREFOUR\original_Nvo_20logo_20CarrefourProperty_ver_RVBb.jpg"
      .Height = 225
      .Width = 417.75
    ElseIf pclient Like "SUDECO" Then
      .Filename = "Z:\ADE\ADMINISTRATIFS ADE\LOGOS ET EN-TETES\CASINO\Logos Casino\Logo_Sudeco.png"
      .Height = 225
      .Width = 417.75
    End If

End With
pws.PageSetup.CenterHeader = "&G"
ElseIf pLocation = xlRight Then
With pws.PageSetup.RightHeaderPicture
    If pclient Like "CPG" Then
      .Filename = "Z:\ADE\ADMINISTRATIFS ADE\LOGOS ET EN-TETES\CARREFOUR\original_Nvo_20logo_20CarrefourProperty_ver_RVBb.jpg"
      .Height = 90
      .Width = 170
    ElseIf pclient Like "SUDECO" Then
      .Filename = "Z:\ADE\ADMINISTRATIFS ADE\LOGOS ET EN-TETES\CASINO\Logos Casino\Logo_Sudeco.png"
      .Height = 90
      .Width = 170
    End If

End With
pws.PageSetup.RightHeader = "&G"
   End If


End Sub