Microsoft 365 Enregistrer des PDF et JPEG automatiquement dont les liens sont dans un fichier excel.

Option Explicit

Sub ExportJPG()
Dim Ws As Worksheet
Dim Rng As Range
Dim ChrtO As ChartObject
Dim lWidth As Long, lHeight As Long

    Set Ws = ActiveSheet
    Set Rng = Ws.Range("B2:H11")

    Rng.CopyPicture xlScreen, xlPicture
    lWidth = Rng.Width
    lHeight = Rng.Height

    Set ChrtO = Ws.ChartObjects.Add(Left:=0, Top:=0, Width:=lWidth, Height:=lHeight)

    ChrtO.Activate
    With ChrtO.Chart
        .Paste
        .Export Filename:="Essai.jpg", Filtername:="JPG"
    End With

    ChrtO.Delete
End Sub