Jump to content

LeandroA

Members
  • Posts

    222
  • Joined

  • Last visited

  • Days Won

    7

Everything posted by LeandroA

  1. Hola, alguien tiene para compartir una hoja de Excel con muchos datos (no menos de 1000 registros) con al menos 5 o mas columnas de preferencia nombres o palabras, para hacer algunas practicas, filtrados y esas cosas. o algún link donde pueda descargar. Gracias
  2. Hola, estas intentando insertar una imagen ".svg", la cual no es un formato soportado por excel, si usas png o jpg u otro formato soportado funcionaria bien, ahora si lo que vos estas buscando es realmente usar .svg vas a tener que depender de alguna libreria externa para convertirla, para ellos tendrías que descargarla al disco, realizar la conversión y luego leerla desde excel, En una de las actualizaciones de windows 10 ("Windows 10 Creators Update") es posible hacer una conversión mediante WIC, es todo un código muy complejo, otra opción podría ser mediante la librería de Cairo. pero ninguna opción es simple.
  3. Hola, con un click en un userform Private Sub UserForm_Click() EscribirCVS "C:\MiArchivo.txt" End Sub Private Function EscribirCVS(ByVal sPath As String) As Boolean Dim FF As Integer Dim Row As Long, Col As Long Dim sLine As String FF = FreeFile Open sPath For Output As #FF For Row = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row sLine = vbNullString For Col = 1 To ActiveSheet.UsedRange.Columns.Count sLine = sLine & Chr$(34) & ActiveSheet.Cells(Row, Col) & Chr$(34) & "," Next Print #FF, Left$(sLine, Len(sLine) - 1) Next Close #FF EscribirCVS = Err.Number = 0 End Function
  4. se supone que adivinemos el usuario y contraseña, estos detalles no pueden faltar a la hora de pedir ayuda.
  5. Hola podes utilizar un webbrowser, o usando createobjet XmlHttpRequest o similares, pero en fin no se cual es tu web puntualmente y que datos queres sacar, porque podes usar uno u otro según el caso.
  6. hola, la imagen que agregaste, la agregaste como imagen, tenes que agregar un shape cuadrado seleccionas la pestaña Formato y en Relleno de la forma seleccionas una imagen Editar Imagenes.xlsm
  7. 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.
  8. unos cuantos ajustes y mas funcional, selecciona una imagen y presiona "Ctrl + Mayuscual + E" Editar Imagenes.xlsm
  9. perdón creo que mi gata camino sobre el teclado y corrió el código Contrastar Imagenes.xlsm
  10. Hola ahi te puse un ejemplo con algunas propiedades no es algo generico pero te sirve como guia, el tema es mucho mas complejo si se quiere trabajar con lo que es efectos y otras cosas pero ya con esto podes empezar jugar. Contrastar Imagenes.xlsm
  11. Hola te arme algo pero no se como enviártelo, no me deja adjuntar archivos.
  12. Hola no entiendo nada de lo que ocurrió en este foro, ya no puedo adjuntar archivos, y no puedo hacer mas de tres preguntas, cual es el motivo de todo esto?, no soy habitué del foro pero creo que esto es muy desalentador para cualquier rango sea novato o experto.
  13. solucionado, era mas facil de lo que esperaba arRng = xlSpread.Range("A6:U796").Value ahora que me recomiendan para suplantar hacer ese rango con letras, es decir valores numéricos (row6,col1) to (row796,col21)
  14. Hola Antoni, sigue con la misma velocidad, el libro de por si esta oculto, yo no estoy escribiendo en él, sólo estoy leyendo datos, por lo que ScreenUpdating no hace la diferencia
  15. Hola estoy cargando una hoja Excel a una grilla de VB6 y creo que el método que estoy empleando es lento, creo recordar que hay otros métodos mas rápidos, yo utilizo dos for X, y for Y recorriendo celda por celda y obtengo su valor (esto en 790 filas con 21 columnas me esta demorando 1 minuto), pero creo que había una forma de obtener un array de las celda lo cual es mas rápido mi código actual Private Sub Form_Load() Dim LastRow As Long Dim i As Integer Dim XL As Object, xlSpread As Object Const xlLastCell = 11 Dim Row As Long, Col As Long Set XL = CreateObject("Excel.Application") XL.Workbooks.Open FileName:=App.Path & "\L1.xlsx", ReadOnly:=False Set xlSpread = XL.Application LastRow = xlSpread.ActiveCell.SpecialCells(xlLastCell).Row With ucGridPlus1 .Redraw = False .ColsCount = 21 .RowsCount = LastRow - 6 + 1 'Encabesados For i = 0 To 20 .ColumText(i) = xlSpread.Cells(5, i + 1).Value Next i = 0 'Celdas/Tabla For Row = 6 To LastRow For Col = 0 To 20 .CellValue(i, Col) = xlSpread.Cells(Row, Col + 1).Value Next i = i + 1 'Debug.Print Row Next .Redraw = True End With XL.Application.DisplayAlerts = False XL.ActiveWorkbook.Close False 'Dont save changes (if any) XL.Quit Set XL = Nothing End Sub
  16. Hola te paso una forma que poco te recomiendo por motivos de que se pierden algunas funciones, pero quizás para tu caso sirva, o al menos hacerlo antes de imprimir. ColorSelecion.xlsm
  17. LeandroA

    Bloques

    Version 1.0.0

    20 downloads

    Otro juego realizado con Excel, en este caso es un juego que consiste en acomodar bloques arrastrando y soltandos para formar la figura que se encuentra en la parte superior, el juego original tiene muchos mas niveles y distintas formas, pero hasta aqui llego mi amor, mi objetivo era poder replicarlo en excel, luego es un poco mas de lo mismo, espero que les sirva para pasar un rato in the office
  18. Gracias Sergio, algo asi tenia pensado en un principio pero bueno, acabo de probar hacerlo con un add in y me fue mas cómodo ya que queda cargado en el mismo excel, y no tuve problemas de privilegios para cargarlo, ademas le anexe las llamadas desde unos botones en una pestaña de la cinta ribbon y quedo pipi cucu. Gracias nuevamente!
  19. Hola, tengo la siguiente situación y quisiera ver como lo harían ustedes. un aplicativo en mi trabajo hace un reporte el cual lo exporta a Excel y directamente abre el libro, y en este reporte hay muchas columnas que no necesito y quiero borrarlas, puedo crear una macro que elimine todas esas columnas innecesarias pero mi pregunta es si esa macro puede quedar guardada en el excel aplicativo, creo que algún aplicativo de office hacia esto de guardar un modulo publico creo que es outlook, no se si hacer un addin (tampoco se como se hace) y no se si por permisos de usuario después lo voy a poder instalar. que me recomiendan hacer esto al vuelo sin guardar el libro o tener que poner la macro en otro libro?
  20. ahí ya no te puedo ayudar, no se bien que seria tabular Excel, pero seguramente alguno mas podrá echar una mano en ese tema.
  21. es lo que te ponía mas arriba, si lo quieres hacer con código podes jugar con las propiedades shpFondo.left <--(izquierda) shpFondo.top <--(superior) shpFondo.Width <--(Ancho) shpFondo.Height <--(Alto) si miras este ejemplo de abajo pone ese cuadrado como el tamaño de la hoja, vos tenes que ir jugando con esas propiedades y lo acomodas a gusto. Private Sub Ajustar() Dim shpFondo As Shape Set shpFondo = Hoja1.Shapes("ShpFondo") shpFondo.Width = Windows(1).UsableWidth - ScrollBar2.Width * 2 shpFondo.Height = Windows(1).UsableHeight - ScrollBar1.Height * 2 End Sub
  22. Hola el uso del call es indiferente si se pone o no, a veces se pone porque se utilizan los paréntesis al final entonces tienes que anteponer el call Call Range("A1:C3").CopyPicture(xlScreen, xlPicture) es lo mismo que esto Range("A1:C3").CopyPicture xlScreen, xlPicture lo del Left y Top era solo un ejemplo, en ese ejemplo oImg.Left = 0 poner la imagen en la izquierda de la hoja y oImg.Top = Range("A1:C3").Height poner la imagen justo debajo del el rango copiado.
  23. además de lo que te sugirió Juan, agregar la referencia "Microsoft XML, V6.0"
×
×
  • Create New...

Important Information

Privacy Policy