With Clipboard
strOldClip = .GetText
varOldClipGraphic = .GetData
.SetData frmDDEDummy.picIcon.Image
oCmdBarControl.PasteFace
.Clear
If IsObject(varOldClipGraphic) Then
.SetData varOldClipGraphic
End If
If LenB(strOldClip) Then
.SetText strOldClip
End If
End With
可在网站搜索一下相关资料