• 👏 Bienvenido a nuestra comunidad Excel

    ¿Todavía no estás registrado? 😲

    Registrate gratis aquí y podrás:

    💪 Hacer preguntas a los expertos
    ⬇️ Descargar ejemplos y plantillas
    🏅 
    Acceder a contenidos premium

Girar formas con grados seteables

BARBOL

Member
Hola, esta es mi primera consulta en el foro,
No sabia donde colocar la consulta, ya que no sé que método utilizar para lo que quiero hacer,
si es por macros, o simplemente dentro de la hoja con alguna fórmula.

Tengo que emular la posición de un potenciometro circular, donde con un valor que se introduzca del 0 al 20, el potenciometro gire.
El potenciometro lo grafiqué con dos formas, una forma circular y otra rectangular para el indicador de posición.
Esto lo hice un Grupo, que contiene ambas.

Intente hacerlo por macros, pero macros, no me define la posición inicial del objeto (Grupo) sino que lo gira respecto a la posición actual, me explico, grabé una Macro de la posición inicial (en mi caso es con el indicador mirando hacia arriba grado 0°) y gire el potenciometro a la izquierda, 210° (eso marcaba la macro mientras grababa) luego, al otro extremo fueron 300°, pero al volver a la posición inicial, vuelve a marcar 210°, claro, es entendible, porque es la cantidad de movimiento que realizó. pero si yo le digo, muévete 90° a la izquierda, y luego le dijo vuelve a 0°, pues se quedará en 90°, ya que 0° no es la posición inicial, si no que es que no haga giro alguno.

Otro punto, es que dentro de las propiedades de giro de los objetos,
herramientas de imagen/formato/girar objetos/mas opciones de rotación , el "Giro" inicial es 0°, o sea que si le cambio a 0°, vuelve al inicio, si coloco 90° girará 90° a la derecha, bien. Si pongo 270° girara "90° a la izquierda", bien. Este método "manual" funciona, pero no es el valor reflejado en la macros.

Mi idea es poder setear numéricamente con valores del 0 - 20, y que se asocien por medio de tablas, y la forma muestre el valor seleccionado de la lista desplegable.

En resumen, como girar (Cambiar su parámetro giro, en sus propiedades) el conjunto de formas "Group 1", con un valor de grados, entre 0° y 360°
definido dentro de una celda (con lista desplegable entre 0-20, asociando un valor a cierto grado, dejo una imagen)
KNOB.png

Muchas gracias
Sí a alguien se le ocurre como lograrlo o algún empujoncito para avanzar. Muchas gracias de antemano.
 
Última edición:

BARBOL

Member
Hola, esta es mi primera consulta en el foro,
No sabia donde colocar la consulta, ya que no sé que método utilizar para lo que quiero hacer,
si es por macros, o simplemente dentro de la hoja con alguna fórmula.

Tengo que emular la posición de un potenciometro circular, donde con un valor que se introduzca del 0 al 20, el potenciometro gire.
El potenciometro lo grafiqué con dos formas, una forma circular y otra rectangular para el indicador de posición.
Esto lo hice un Grupo, que contiene ambas.

Intente hacerlo por macros, pero macros, no me define la posición inicial del objeto (Grupo) sino que lo gira respecto a la posición actual, me explico, grabé una Macro de la posición inicial (en mi caso es con el indicador mirando hacia arriba grado 0°) y gire el potenciometro a la izquierda, 210° (eso marcaba la macro mientras grababa) luego, al otro extremo fueron 300°, pero al volver a la posición inicial, vuelve a marcar 210°, claro, es entendible, porque es la cantidad de movimiento que realizó. pero si yo le digo, muévete 90° a la izquierda, y luego le dijo vuelve a 0°, pues se quedará en 90°, ya que 0° no es la posición inicial, si no que es que no haga giro alguno.

Otro punto, es que dentro de las propiedades de giro de los objetos,
herramientas de imagen/formato/girar objetos/mas opciones de rotación , el "Giro" inicial es 0°, o sea que si le cambio a 0°, vuelve al inicio, si coloco 90° girará 90° a la derecha, bien. Si pongo 270° girara "90° a la izquierda", bien. Este método "manual" funciona, pero no es el valor reflejado en la macros.

Mi idea es poder setear numéricamente con valores del 0 - 20, y que se asocien por medio de tablas, y la forma muestre el valor seleccionado de la lista desplegable.

En resumen, como girar (Cambiar su parámetro giro, en sus propiedades) el conjunto de formas "Group 1", con un valor de grados, entre 0° y 360°
definido dentro de una celda (con lista desplegable entre 0-20, asociando un valor a cierto grado, dejo una imagen)
Ver el archivo adjunto 56781

Muchas gracias
Sí a alguien se le ocurre como lograrlo o algún empujoncito para avanzar. Muchas gracias de antemano.
Emmm encontré una forma con Macros...
En la hoja de trabajo:

Código:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$Q$3" Then  'celda que cambia
    Call NOMBRE DE MACRO
    End If
End Sub
y en el Modulo:
Código:
Sub NOMBRE DE MACROS
Application.ScreenUpdating = False
' MACROS PARA GIRAR FORMAS
    'DEFINIR VALOR DE VARIABLE
    ActiveSheet.Shapes.Range(Array("Group 1")).Select 'revisar nombre de forma en cuadro de nombres
    Selection.ShapeRange.Rotation = Range("Q4").Value 'valor de giro en grados
    Range("Q3").Select 'volver a celda de selección
    
End Sub
Y listo... no es muy pulcro... pero funciona... me queda trabajo, ya que tengo que crear muchos potenciometros que girar.
Si alguien se le ocurre alguna idea para optimizar esto, agradecido.

Adios.
 
Arriba