Visual Basic para Aplicaciones - Pasarle una variable al texto de un cuadro

Life is soft - evento anual de software empresarial
   
Vista:

Pasarle una variable al texto de un cuadro

Publicado por Esteban (4 intervenciones) el 07/05/2009 17:29:42
Hola Buenas
Mi intencion es llenar un texto, en un shape, osea un cuadrado.
Este texto es variable ingresado por el usuario.
Traté con estos que comento
Usuario es una variable String que le pasa otro procedimiento

Sub Realizo(Usuario)

Dim eso As String

eso = Usuario ' creo que esto es innecesario

ActiveSheet.Shapes("Rectangle 14").Select

' aca probe con esto (Obvio no anduvo)
ActiveSheet.Shapes("Rectangle 14").Text.Value = eso

Selection.Characters.Text = "algo" ' (asi si anda pero asi solo acepta un texto fijo)

' luego aca probe con esto (tampoco anduvo)
Selection.Characters = eso

With Selection.Characters(Start:=1, Length:=3).Font
.Name = "Verdana"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Text = eso ' otra que probé
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Cells(12, 1).Select
End Sub

Que hago mal?
Les dejo saludos!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

RE:Pasarle una variable al texto de un cuadro

Publicado por JuanC (431 intervenciones) el 07/05/2009 22:20:01
Sub Realizo(ByVal usuario As String)
ActiveSheet.Shapes("Rectangle 14").OLEFormat.Object.Characters.Text = usuario
End Sub

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Pasarle una variable al texto de un cuadro

Publicado por Esteban (4 intervenciones) el 08/05/2009 14:50:01
Obvio que si me lo pasa JuanC anda!!

Gracias de nuevo!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar