Jump to content

LeandroA

Members
  • Posts

    222
  • Joined

  • Last visited

  • Days Won

    7

LeandroA last won the day on August 5

LeandroA had the most liked content!

2 Followers

About LeandroA

  • Birthday 10/07/1976

Contact Methods

  • Website URL
    www.leandroascierto.com

Profile information

  • Gender
    Hombre
  • Localización:
    Argentina

Converted

  • Campos
    ;

Recent Profile Visitors

2,271 profile views

LeandroA's Achievements

  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
×
×
  • Create New...

Important Information

Privacy Policy