| Pregunta: | 41732 - VACIAR PORTAPAPELES OFFICE XP |
| Autor: | Jesus Pardo chacon |
| Buenas tardes: me pueden auydar acrear una macro excel para que vacie el portapapeles de office.
de antemano muchas gracias | |
| Respuesta: | eider mauricio aristizabal erazo |
| depronto esto te sirva de algo...
prueba utilizando noting Ejemplo de los métodos Paste, PutInClipboard y SetText El siguiente ejemplo demuestra el movimiento de datos de un control TextBox a un objeto DataObject, de un objeto DataObject al Portapapeles y del Portapapeles a otro control TextBox. El método PutInClipboard transfiere los datos del objeto DataObject al Portapapeles. Se utilizan también los métodos SetText y Paste. Para utilizar este ejemplo, copie este código de ejemplo en la parte Declaraciones de un formulario. Asegúrese de que el formulario contiene: Dos controles TextBox llamados TextBox1 y TextBox2. Un control CommandButton llamado CommandButton1. Dim MyData As DataObject Private Sub CommandButton1_Click() Set MyData = New DataObject MyData.SetText TextBox1.Text MyData.PutInClipboard TextBox2.Paste End Sub Private Sub UserForm_Initialize() TextBox1.Text = "Move this data to a " _ & "DataObject, to the Clipboard, then to " _ & "TextBox2!" End Sub | |
| Respuesta: | Cecilia Colalongo |
| Fijate con ésto:
Const SHERB_NOCONFIRMATION = &H1 Const SHERB_NOPROGRESSUI = &H2 Const SHERB_NOSOUND = &H4 Private Type ULARGE_INTEGER LowPart As Long HighPart As Long End Type Private Type SHQUERYRBINFO cbSize As Long i64Size As ULARGE_INTEGER i64NumItems As ULARGE_INTEGER End Type Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Long Private Declare Function SHQueryRecycleBin Lib "shell32.dll" Alias "SHQueryRecycleBinA" (ByVal pszRootPath As String, pSHQueryRBInfo As SHQUERYRBINFO) As Long SHEmptyRecycleBin Me.hwnd, vbNullString, 0 SHUpdateRecycleBinIcon | |