【エクセルVBA】この係数「1.2」(倍)は何を意味していますか？【[オートシェイプ選択]-[図として保存]同等動作を想定】

Sub SaveShapeAsPNG()
    Dim Shp As Shape
    Dim Cht As ChartObject
    Dim FileName As String
    Dim i As Integer
    
    ' 全てのシートの倍率を50%にする
    For Each bk In Workbooks
     bk.Activate
      For Each sh In bk.Worksheets
        sh.Select
        ActiveWindow.Zoom = 50
      Next
    Next
    
    ' プレビューシートへ移動してアクティブにする
    ThisWorkbook.Sheets("プレビュー").Select

    ' プレビューのシート保護を解除
    ActiveSheet.Unprotect

    ' プレビューシートに貼ってある「リンクされた図」（図 1～4）の画像を加工する
    For i = 1 To 4
        Set Shp = ActiveSheet.Shapes("Picture " & i)

        FileName = GetLocalPath(ThisWorkbook.path) & Application.PathSeparator & "PC_Layout" & "-" & i & ".png"

        With Shp
        ' セルの境界線も描画されてしまうのでトリミング
            .PictureFormat.CropTop = 1
            .PictureFormat.CropLeft = 1.75
            .PictureFormat.CropRight = 1.75
            .PictureFormat.CropBottom = 1
        ' １枚のサイズを900×500ピクセルにする
            .Width = 990 * 1.2
            .Height = 500 * 1.2
        End With

    ' オートシェープをチャートにしないと図の保存ができない
    ' 参考情報(https://daitaideit.com/vba-shapes-export-picture/)など
        Set Cht = ActiveSheet.ChartObjects.Add(0, 0, Shp.Width, Shp.Height)

        With Cht
            Shp.CopyPicture Format:=xlBitmap 'オートシェイプを画像としてコピー
            .Chart.Parent.Select 'チャートを選択
            .Chart.Paste 'チャートに貼り付け
            .Chart.ChartArea.Format.Line.Visible = msoFalse '枠線を非表示
            .Chart.Export FileName
            .Delete 'チャートを削除
        End With

        With Shp
        ' 再度プレビューの枠に納める
            .Width = 495 * 1.2
            .Height = 250 * 1.2
        End With
    Next i

    ' プレビューのシート保護を再実施
    ActiveSheet.Protect

    MsgBox "画像を保存しました: PC_Layout-1.png から PC_Layout-4.png まで", vbInformation
End Sub

        ' １枚のサイズを900×500ピクセルにする
            .Width = 990 * 1.2
            .Height = 500 * 1.2