安全使用剪切板，不报错。

Option Explicit
Private Declare Sub Sleep Lib "kernel32.dll" Alias "Sleep" (ByVal dwMilliseconds As Long)
Private Const CF_BITMAP = 2

' 避免 Clipboard.SetData 出错
Private Function f_SafeSetClipboardPicture(ByVal lngResPic As Long) As Boolean
    Dim iRetry%
    Dim blnSuccess As Boolean

    ' 最多重试3次
    With Clipboard
        For iRetry = 1 To 3
            On Error Resume Next
            .Clear    ' 清空剪贴板（先尝试清空，避免占用）

            ' 设置图片到剪贴板
            .SetData LoadResPicture(lngResPic, 0)

            ' 检查是否成功
            If Err.Number = 0 Then
                blnSuccess = True
                Exit For
            Else
                ' 等待一小段时间后重试
                If iRetry < 3 Then Sleep 100
                Err.Clear
            End If
        Next iRetry
    End With
    On Error GoTo 0

    f_SafeSetClipboardPicture = blnSuccess
End Function