Jump to content

deremac

Members
  • Content Count

    38
  • Joined

  • Last visited

About deremac

  • Rank
    Member
  • Birthday 08/25/1979

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Buenas tardes GabrielRaigosa He estado probando la opción que me dejaste, ya con un inventario más grande que tengo y el cual no puedo subir aquí. Me da el mismo error que otras opciones que probe anteriormente y cuando intento nombrar la imagen me da el error " la referencia no es valida". Me tiene loco, por que haga lo que haga y pruebe lo que pruebe siempre sale este error. No se si tengo algo mal o si es la versión de Excel que da fallo. De todas formas mil gracias por tu ayuda.
  2. Buenos días GabrielRaigosa, Es lo que buscaba, muchas gracias por tu aporte y por responder a mi comentario, un gran trabajo el tuyo y muy bien explicado en cada punto. Gracias de nuevo. El tema se puede dar por solucionado.
  3. Buenos días a todos, Os quería pedir ayuda para ver si me podéis guiar en un atasco que tengo. La historia es la siguiente, tengo una columna nombrada con números y otra con una imagen en PNG que quiero estén asociadas. Me gustaría que desde otra hoja llamada buscador, al poner el número de la primera columna en una celda me apareciera en otra celda la imagen que corresponde al número. He utilizado INDICE y COINCIDIR para crear una formula llamada IMAGENES, pero siempre me da error de referencia no valida. Puede que sea una tontería el fallo, pero no soy capaz de verlo, si alguien me pudiera ayudar le estaría agradecido. Dejo adjunto un excel con el ejemplo que les comento. Gracias de antemano. L1_IMAGEN.xlsx
  4. Muchas gracias Macro Antonio. Tema solucionado.
  5. Hola a todos, Les comento mi duda para ver si alguien me puede ayudar. Tengo 2 combobox (cbx1 y cbx2) me gustaría que al buscar en el primero el nombre de una persona que ya se encuentra en un listado, me apareciera en el 2º combobox solamente el número de proyecto o proyectos relacionados con esa persona. Les dejo un archivo. Muchas gracias. 2 CBX.xlsm
  6. Tambien he encontrado este codigo que hace lo que quiero. Lo pongo aquí por si le interesa a alguien Public Sub RangoImagen(Rango As Excel.Range, Archivo As String) Dim Imagen As Chart Dim Result As Boolean 'Primero copiamos el rango como imagen luego creamos un objeto chart que tenga las mismas dimensiones que el rango y pegamos el rango que copiamos en el objeto chart. With Rango .CopyPicture Appearance:=xlScreen, Format:=xlPicture Set Imagen = Rango.Parent.ChartObjects.Add(10, 10, .Width, .Height).Chart End With Imagen.Paste 'Después quitamos los bordes del objeto chart Imagen.ChartArea.Border.LineStyle = 0 'Luego Redimensionamos el objeto chart esto con el fin de obtener una mejor calidad en la imagen Imagen.ChartArea.Width = Imagen.ChartArea.Width * 3 Imagen.ChartArea.Height = Imagen.ChartArea.Height * 3 On Error Resume Next 'Después eliminamos el archivo(Si existiera) Kill Archivo 'Y exportamos el objeto chart Result = Imagen.Export(Archivo) 'Después se elimina y se libera el objeto chart Imagen.Parent.Delete Set Imagen = Nothing 'Si se exportó el rango se muestra un mensaje de éxito, si no se exportó se muestra un mensaje de error If Result Then MsgBox "Correcto. Se ha creado la imagen del rango" Else MsgBox "Error. " & Err.Description End If End Sub Luego para utilizar el codigo lo usamos de esta manera RangoImagen Sheets("Hoja1").Range("A1:c5"), "C:\Users\Desktop\nueva carpeta\\RANGE.JPG"
  7. Muchisimas gracias Macro Antonio por tu respuesta, siempre estas echando una mano. Muchas gracias. Saludos.
  8. Saludos a todos. Me gustaría saber si hay alguna manera de guardar una hoja de Excel en formato de imagen Jpg desde un formulario usando codigos, darle el nombre que se encuentre en una celda y por ultimo guardarlo en una carpeta. Ej: ("Hoja1"), rango de celdas de imagen ("A1:c5"), Nombre de la imagen ("E1") He probado a realizar lo mismo que para un PDF, pero se ve que no es valido para este formato. Sub JPG() On Error Resume Next Application.Goto Reference:="Print_Area" Sheets("hoja1").ExportAsFixedFormat Type:=xlTypeJPG, Filename:= _ "C:\Users\Desktop\nueva carpeta\" & Range("E1").Value, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False Range("A1").Select End Sub Muchas gracias.
  9. Eres muy grande Macro Antonio. Muchas gracias por tu ayuda. TEMA SOLUCIONADO
  10. Reformulo mi pregunta, por si acaso no me explique bien. ¿Se puede ver la imagen de un dato que esta en un listbox y que la imagen cambie según el dato que se marque en el Listbox? Se que se puede ver una imagen como dijo Macro Antonio, pero me gustaría saber si hay algún código que simplifique esto para no tener que poner todas las rutas de cada imagen. Muchas gracias de nuevo.
  11. Muchas gracias por contestar Macro Antonio. Lo he probado y va bien para ver una imagen, pero no se como usar ese código para tener un listado de 50 imágenes(por ejemplo) y poder verlas cada ves que haga doble click en el articulo correspondiente. Perdón por adelantado ya que seguramente para ti sera una tontería. Muchas gracias de nuevo sigas o no con la ayuda.
  12. Hola a todos. Les cuento mi problema, a ver si pueden ayudarme con esto. Al registrar productos, tengo la opción de introducir una imagen junto a todos los datos del producto. Esto va bien y se registra todo correcto. El problema es, que tengo un buscador de productos con un listbox y cuando quiero modificar estos al darle doble click todos los datos de ese producto me aparecen dentro de unos Textbox, pero no consigo ver la imagen. Es aquí donde le pido ayuda, para ver si es posible hacer esto que les comento. Muchas gracias. https://www.dropbox.com/s/zdoe2qv45n5p35v/Ejemplo.xlsm?dl=0
  13. Hola Macro Antonio. Muchas gracias por tu contestación, y sobre todo por la ayuda que me has dado. Funciona genial. Le hechare un vistazo al otro Post que me comentas.
×
×
  • Create New...

Important Information

Privacy Policy