Графика и Мультимедиа

Вопрос

Как сохранить графические данные из буфера обмена в BMP?

Ответ

Dim ClipPicture As IPictureDisp
'Проверка: действительно в буфере нахоится рисунок BMP?:
If Clipboard.GetFormat(vbCFBitmap) Then
Set ClipPicture = Clipboard.GetData(vbCFBitmap)
SavePicture ClipPicture, "C:\11.bmp"
End If

Игорь