Jump to content

edicion de imagenes en formulario


Recommended Posts

Buen Día, excelentes compañeros, tengo una consulta al respecto y es que en un formulario existe la manera de "jalar" los optimización de imágenes como son aquellos que por ejemplo ponen en escala de grises una imagen, o la ponen esa imagen en espejo, o le dan nitidez o contraste y todo eso que se pueda lograr dentro de un formulario?

y es que la verdad es que no se si se pueda llamar esos controles en un formulario. De antemano agradezco la atención y colaboración y quedo en espera me puedan ayudar al respecto, al menos con la orientación.

 

edicion de imagenes en formularios

Link to comment
Share on other sites

Esta es la propiedad: ActiveSheet.Shapes(ShapeName).Fill.Transparency = valor (Entre 0 y 1)

Por asociación con el resto de scrollsbar, no creo que un nuevo control para que controle esta propiedad.

Edited by Antoni
Link to comment
Share on other sites

Hace 17 horas, Benito Bartolomé dijo:

Hola Leandro;

Se puede añadir a su macro el efecto transparencia(?).

Un saludo.

Hola las imágenes en Excel no tienen propiedad para cambiar la transparencia (canal alpha) , pero si se puede hacer el truco de agregar un shape (forma) con un relleno de imagen, y a esta si se le puede modificar la transparencia tal como lo marca Antoni mas arriba, seria cuestión de agregar un nuevo scrollbar con un Max = 100

Private Sub ScrollBar6_Change()
    If CancelEvent = True Then Exit Sub
    ActiveSheet.Shapes(ShapeName).Fill.Transparency = ScrollBar6.Value / 100
    ImportImage
End Sub

 
y para tomar su valor en el UserForm_Initialize

ScrollBar6.Value = ActiveSheet.Shapes(ShapeName).Fill.Transparency * 100

no va a arrojar error si es una imagen y no un shape, solo que si es una imagen no vera cambios en su transparencia.

 

 

 

Link to comment
Share on other sites

Hace 17 horas, Antoni dijo:

Esta es la propiedad: ActiveSheet.Shapes(ShapeName).Fill.Transparency = valor (Entre 0 y 1)

Por asociación con el resto de scrollsbar, no creo que un nuevo control para que controle esta propiedad.

Gracias Antoni;

Disculpa pero no he podido probar antes.

También me ha contestado Leandro.

Estoy a vueltas y de momento no he conseguido nada.

Le voy a enviar la macro a ver si hay algo en lo que me equivoco.

Él me cuenta que se puede hacer con el truco "agregar un shape (forma) con un relleno de imagen,pero algo debo estar haciendo mal.

Una duda trasparencia=opacidad ?? 

Lo digo porqué en Photoshop se utiliza el termino OPACIDAD y no vaya ser que estemos hablando de cosas distintas.

 

Saludos y buen día Antoni.

 

Link to comment
Share on other sites

Hace 8 horas, LeandroA dijo:

Hola las imágenes en Excel no tienen propiedad para cambiar la transparencia (canal alpha) , pero si se puede hacer el truco de agregar un shape (forma) con un relleno de imagen, y a esta si se le puede modificar la transparencia tal como lo marca Antoni mas arriba, seria cuestión de agregar un nuevo scrollbar con un Max = 100

Private Sub ScrollBar6_Change()
    If CancelEvent = True Then Exit Sub
    ActiveSheet.Shapes(ShapeName).Fill.Transparency = ScrollBar6.Value / 100
    ImportImage
End Sub

 
y para tomar su valor en el UserForm_Initialize

ScrollBar6.Value = ActiveSheet.Shapes(ShapeName).Fill.Transparency * 100

no va a arrojar error si es una imagen y no un shape, solo que si es una imagen no vera cambios en su transparencia.

 

 

 

Hola Leandro;

He cambiado lo que me comentas pero veo que no hace nada.

Te voy a adjuntar la macro por si hay alguna cosa que esté haciendo mal.

Le comentaba también a Antoni si transparencia era igual a opacidad no vaya ser que lo que yo quiero conseguir sea "opacidad" en vez de "trasparencia"

He insertado un shape "Cuadadro" y después le inserté la imagen y veo que no hace nada.

Si no le es mucha molestia lo prueba y me comenta.

Un abrazo y muy buena la macro que has creado.

 

Editar Imagenes.xlsm

Link to comment
Share on other sites

muy buena aportación me quede sumamente sorprendido, solo falta el botón o el control de invertir colores, osea que lo negro se vuelva blanco y viceversa, también me han surgido las preguntas:

1.- para el hecho que el formulario "cargue" la imagen ¿es necesario que la imagen este inserta en alguna hoja?, osea mi idea era "jalarla" desde el comando de LoadPicture(archivo)?

2.- dado lo anterior, cuando el formulario carga la imagen, esto sucede porque la obtiene en sus dimensiones y resoluciones que originalmente esta tiene, la pregunta es, ¿como estandarizo eso en un formulario para que dentro del formulario tenga las dimensiones y resoluciones que yo desee y obviamente cargando la imagen desde LoadPicture(archivo)?

espero explicado aun así de antemano mil gracias y quedo atento a tus comentarios.

Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

    • Muchas gracias! Voy a tener que revisar las macros porque no domino mucho...   Saludos!
    • Sube tu archivo siempre y pon un ejemplo de donde hay que tomar los datos y donde y como deben reflejarse  
    • Hola nuevamente muchachos. Espero estén bien todos, es mi mayor deseo. Estoy teniendo otro problema por acá con la configuración de un TextBox donde quiero expresar números. Propiamente el número que va a estar reflejado en esos TextBox son la división del Salario Mensual entre los días a trabajar y eso me da un índice o tarifa salarial diaria.  No tengo problemas en las operaciones matemáticas, sino en el formato a expresar en el TextBox.  Este dato lo toma el TextBox de la Hoja, la que tengo configurada (Celda) como Numero. Podrían ayudarme. Gracias de antemano y excelente semana para todos. Saludos Pino
    • Buenas tardes. Tengo el siguiente código en una macro:   Sub Prueba() hora = Hour(Now) If hora <= 18 & Sheets("Hoja1").Range("G7") = 1 Then     MsgBox ("haz esto")      ElseIf hora > 18 & Sheets("Hoja1").Range("G7") = 2 Then     MsgBox ("haz esto otro")      Else     MsgBox ("No se cumple") End If End Sub Sin embargo,  siempre se me ejecuta el Else aunque a priori se cumplan las condiciones del If. Adjunto el excel de prueba. ¿Alguna idea del por qué no entra en el If ni en el ElseIf? Gracias   Prueba.xlsm
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy