Пример работы с буфером обмена (Action = acOLECopy)

Простенький пример работы с буфером обмена

Private Sub FromBase_Click()
'Копируем из левого поля в правое
'es - 26.11.2012
'---------------------------------------------------------------------------------------
On Error GoTo FromBase_Click_Err
    Me!fldPictureOne.Action = acOLECopy
    Me!fldPictureOne = Null
    Me!fldPictureTwo.Action = acOLEPaste


FromBase_Click_Bye:
    Exit Sub

FromBase_Click_Err:
    'MsgBox "Error " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
    "in procedure FromBase_Click", vbCritical, "Error!"
    Resume FromBase_Click_Bye
End Sub

Private Sub ToBase_Click()
'Копируем из правого поля в левое
'es - 26.11.2012
'---------------------------------------------------------------------------------------
On Error GoTo ToBase_Click_Err
    Me!fldPictureTwo.Action = acOLECopy
    Me!fldPictureTwo = Null
    Me!fldPictureOne.Action = acOLEPaste


ToBase_Click_Bye:
    Exit Sub

ToBase_Click_Err:
    'MsgBox "Error " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
    "in procedure ToBase_Click", vbCritical, "Error!"
    Resume ToBase_Click_Bye
End Sub

01. Копируем в буфер картинку из одного места

02. ... и вставляем в другое место ...

MSA-2003 ( 41 kB)