Opret tekst før og efter et billede er kopieret fra Excel til Outlook

Hej forum

Jeg har brug for jeres hjælp.

Jeg vil gerne i en e-mail have indføjet en tekst før og efter det billede, som jeg får kopieret ind fra min Excel-fil. Med nedenstående kode får jeg kopieret det ønskede range i Excel-filen og indsat det som billede i mailen. Men det er ikke lykkedes mig at få indarbejdet en tekst før og efter billedet. Kan I hjælpe?

På forhånd tak for jeres hjælp!

--------

Sub CreateMail

    Dim wb As Workbook
    Set wb = ThisWorkbook
   
    Dim ws1 As Worksheet
    Set ws1 = Sheets("All information")

    Dim ol As Object 'Outlook.Application
    Dim olEmail As Object 'Outlook.MailItem
    Dim olInsp As Object 'Outlook.Inspector
    Dim wd As Object 'Word.Document 

    Dim strbody As String
    strbody = "Hi,<br><br>Please take a look at this overview."
    strbody = strbody & picture 'This is the place for the picture
    strbody = strbody & "<br><br>Best Regards,<br>Arne<br><br>

    ws1.Range("B4:L5").SpecialCells(xlCellTypeVisible).Copy

    Set ol = GetObject(, "Outlook.Application")
    Set olEmail = ol.CreateItem(0)
   
    With olEmail
    .To = ws1.Range("D5")
    .Subject = "New procedure"
    .htmlbody = strbody
   
    Set olInsp = .GetInspector
    If olInsp.EditorType = 4 Then 'olEditorWord
        Set wd = olInsp.WordEditor
        wd.Range.PasteandFormat 13 'wdChartPicture
    End If
   
    For Each shp In wd.InlineShapes
        shp.ScaleHeight = 100
        shp.ScaleWidth = 100
    Next

    .Display

End With

    Set OutlookMail = Nothing
    Set OutlookApp = Nothing

End Sub