Jump to content

deremac

Members
  • Content Count

    32
  • Joined

  • Last visited

About deremac

  • Rank
    Member
  • Birthday 08/25/1979
  1. Muchas gracias Macro Antonio. Tema solucionado.
  2. 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
  3. 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"
  4. Muchisimas gracias Macro Antonio por tu respuesta, siempre estas echando una mano. Muchas gracias. Saludos.
  5. 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.
  6. Eres muy grande Macro Antonio. Muchas gracias por tu ayuda. TEMA SOLUCIONADO
  7. 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.
  8. 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.
  9. 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
  10. 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.
  11. Hola a todos. Necesitaría su ayuda para este caso a ver si es posible o no. Tengo una hoja de calculo con bastantes columnas. Tengo hecho un buscador mediante un Combobox y un Listbox en donde me aparecen los datos de la hoja. Haciendo doble click en el Lisbox abro otro formulario en donde puedo modificar los resultados aparecidos. Como en el Listbox solo puedo meter los datos de 10 columnas, mi duda es, ¿Se puede usar otro Listbox a la vez mostrando los otros resultados que faltan?. Dejo un archivo de prueba con lo que he hecho Muchas gracias por su atención. PRUEBA.rar
  12. Hola a todos. Ya he conseguido solucionar mi problema. He introducido un nº de venta y ya con esto modificando el codigo he podido solucionarlo. Dejo el archivo por si alguien le pudiera interesar o le fuese util. Saludos. E2.rar
×
×
  • Create New...

Important Information

Privacy Policy