Ejemplo de evento DblClick, propiedad CanPaste y métodos Paste y Copy

En el ejemplo siguiente se usa la propiedad CanPaste y el método Paste para pegar un ComboBox desde el Portapapeles en una página de una página múltiple.

En este ejemplo también se usan los métodos SetFocus y Copy para copiar un control del formulario en el Portapapeles.

El usuario hace clic en BotónDeComando1 para copiar el cuadro combinado al portapapeles. El usuario hace doble clic (con el evento DblClick) en BotónDeComando1 para pegar el cuadro combinado a la página múltiple.

Para usar este ejemplo, copie este código muestra en la parte Declaraciones de un formulario. Asegúrese de que el formulario contiene:

• Un control TextBox denominado TextBox1.
• Un cuadro combinado con el nombre CuadroCombinado1.
• Una página múltiple con el nombre PáginaMúltiple1.
• Un control CommandButton denominado CommandButton1.

Nota:

[!NOTA] Este ejemplo también incluye una subrutina para mostrar cómo se pega el texto en un control.

Private Sub UserForm_Initialize() 
 ComboBox1.AddItem "It's a beautiful day!" 
 
 CommandButton1.Caption = "Copy ComboBox to " _ 
 & "Clipboard" 
 CommandButton1.AutoSize = True 
End Sub 
 
Private Sub MultiPage1_DblClick(ByVal Index As Long, _ 
 ByVal Cancel As MSForms.ReturnBoolean) 
 If MultiPage1.Pages(MultiPage1.Value).CanPaste = _ 
 True 
 Then 
 MultiPage1.Pages(MultiPage1.Value).Paste 
 Else 
 TextBox1.Text = "Can't Paste" 
 End If 
End Sub 
 
Private Sub CommandButton1_Click() 
 UserForm1.ComboBox1.SetFocus 
 UserForm1.Copy 
End Sub 
 
'Code for pasting text into a control 
'Private Sub ComboBox1_DblClick(ByVal Cancel As _ 
 MSForms.ReturnBoolean) 
' If ComboBox1.CanPaste = True Then 
' ComboBox1.Paste 
' Else 
' TextBox1.Text = "Can't Paste" 
' End If 
'End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.