使用SAP Analysis For Office Excel插件，您可以使用SAPAddMessage定义消息并将其添加到标准SAP-AnalysisForOffice消息对话框中：

Dim lResult As Long

lResult= Application.Run("SAPAddMessage", "This is a new error message!", "ERROR")

The message 'This is a new error message' with severity Error is displayed in the message dialog.

它会做同样的图片发送与我的问题。
参考文献：

• SAP forum > Analysis Office: - Use Toaster/Notification Window with VBA
• Details about SAPAddMessage in SAP Help Portal > Analysis Plug-in User Guide > Designing Workbooks > Working with macros

我也有类似的需求（主要是为了调试）
我的解决方案是弹出一个带有单个标签控件的小窗体，并在4秒后卸载它。表单属性设置为不显示模态等。
在VBA“模块”中

Private mFrmToast As frmToast
Public Sub clearToast()
    On Error Resume Next
    If Not mFrmToast Is Nothing Then

        mFrmToast.Hide
        Unload mFrmToast

        Set mFrmToast = Nothing

    End If
End Sub
Public Sub showToast(message As String)
    On Error GoTo er_clear_in_4
    If mFrmToast Is Nothing Then
        Set mFrmToast = New frmToast
    End If
    mFrmToast.message = message
    If Not mFrmToast.Visible Then
        Call mFrmToast.Show(False)
    End If
    er_clear_in_4:
    Application.OnTime Now + TimeValue("00:00:04"), "clearToast"

End Sub

表单“代码隐藏”模块包含一个示例只写属性“message”。

Option Explicit

Public Property Let message(ByVal sMessage As String)
  lblMessage.Caption = sMessage
End Property

用法简单地是showToast（“您的消息在这里”）