Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

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

17/04/2007 - 23:49 por Arcano | Informe spam
Ayuda Hacer una pregunta
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.
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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

Preguntas similares

 

Busqueda sugerida :