Macro Excel para copiar el portapapeles en una variable

10/10/2006 - 23:28 por taller_inf | Informe spam

Hola, lo que equiero hacer seguro que es muy simple para quien sepa utilizar
las macros de excel pero se me esta haciendo dificil.

Quiero definir una variable a la que copiar el contenido del portapapeles.

Y despues asignar (pegar) el contenido de esta variable en el comentario de
una celda (idealmente la celda actual).

Lo que he hecho es:

Dim Texto As DataObject
Texto.GetFromClipboard
ActiveCell.AddComment Texto

pero me dice que la variable no esta definida¿?

He probado muchas cosas que salen en forums pero nada de nada, me podeis
echar una mano? Muchas gracias de antemano.

Siga el debate

7 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 taller_inf

11/10/2006 - 19:03 | Informe spam

Gracias Hector, eso ya lo habia probado.

NO tengo muy claro como debo declarar la variable o si lo hago bien.

Hay alguna forma de sacar por pantalla el contenido de la variable para
comprobar si ha cogido el portapapeles?

"Héctor Miguel" wrote:

Mostrar la cita

Responder a este mensaje

#7 taller_inf

11/10/2006 - 19:55 | Informe spam

Bueno, por fin lo he conseguido.

Sub copiar()
Set MyData = New DataObject
MyData.GetFromClipboard
Dim cmt As Comment
Set cmt = ActiveCell.Comment
If cmt Is Nothing Then
Set cmt = ActiveCell.AddComment
cmt.Text MyData.GetText(1)
End If
With ActiveCell.Comment
.Shape.TextFrame.AutoSize = True
End With
End Sub

UN SALUDO Y GRACIAS POR TODO

"taller_inf" wrote:

Mostrar la cita

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida