Cambiar el tamaño de autoformas con el valor de una celda

17/04/2007 - 23:49 por Arcano | Informe spam

Hola, espero que sea posible lo que necesito, y es que según el valor
que tenga una celda, ej. un porcentaje, se vaya cambiando el tamaño de
una autoforma o shape, o cualquier cosa que parezca un rectángulo.
Al final lo que necesito es graficar un grado de avance, si la celda
dice 20% que tenga cierto tamaño, y si le pongo un 80%, que aumente
hacia la derecha..hasta el 100%
Ojo que los gráficos de barra no me sirven para lo que necesito.
Es posible esto?
Gracias de antemano.

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Abraham

18/04/2007 - 00:15 | Informe spam

coloca esto en el codigo de tu hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
ActiveSheet.Shapes("Rectangle 2").Select
Selection.ShapeRange.ScaleWidth [a1], msoFalse, msoScaleFromTopLeft
[a1].Select
End If
End Sub

Aqui estoy suponiendo que tienes un rectangulo llamado "Rectangle 2",
tambien supongo que el valor de creciemiento esta en A1, y que quieres
que el rectangulo crezca hacia la derecha, pruebalo, analiza el codigo
y modificalo de acuerdo a tus necesidades

Abraham

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida