Jump to content

LeandroA

Members
  • Content Count

    206
  • Joined

  • Last visited

  • Days Won

    6

LeandroA last won the day on March 14

LeandroA had the most liked content!

2 Followers

About LeandroA

  • Rank
    Advanced Member
  • Birthday 10/07/1976

Contact Methods

  • Website URL
    www.leandroascierto.com

Profile information

  • Gender
    Hombre
  • Localización:
    Argentina

Converted

  • Campos
    ;

Recent Profile Visitors

2,140 profile views
  1. 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
  2. LeandroA

    Bloques

    Version 1.0.0

    13 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
  3. 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!
  4. 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
  5. ahí ya no te puedo ayudar, no se bien que seria tabular Excel, pero seguramente alguno mas podrá echar una mano en ese tema.
  6. 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
  7. 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.
  8. además de lo que te sugirió Juan, agregar la referencia "Microsoft XML, V6.0"
  9. LeandroA

    Juego Trabado

    Version 1.0.1

    17 downloads

    Hola este es un juego que vi en estos días y me dió ganas de hacer lo en Excel, la verdad si bien me dio trabajo programarlo es más difícil lograr el objetivo del juego, en YouTube hay un par de tutoriales pero eso seria como ir derecho a la trampa así que les dejo este desafío para pasar el rato (yo no logré resolverlo) El objetivo del juego es bajar la ficha roja en la parte inferior tal como muestra el cuadro de solución, las piezas se mueven con el mouse.
  10. Sub Test() Dim oImg As Picture Call Range("A1:C3").CopyPicture(xlScreen, xlPicture) Set oImg = ActiveSheet.Pictures.Paste oImg.Name = "MiImagen" oImg.Left = 0 oImg.Top = Range("A1:C3").Height 'oImg.ShapeRange <-- aca lo tratas tal como un shape MsgBox ActiveSheet.Shapes("MiImagen").Name End Sub
  11. Hola fíjate esto, recupere el cdata con esta ruta y despues lei ese xml y saque un dato que es una fecha, vos sabrás como sacar lo que necesitas puntualmente. Sub My_Example_Test() Dim Dom As MSXML2.DOMDocument60 Set Dom = New MSXML2.DOMDocument60 Dom.Load "C:\Users\Windows\Downloads\ad08301097230342100195863.xml" MsgBox Dom.ChildNodes.Item(1).ChildNodes(11).ChildNodes.Item(0).ChildNodes.Item(2).ChildNodes.Item(0).Text Dom.LoadXML Dom.ChildNodes.Item(1).ChildNodes(11).ChildNodes.Item(0).ChildNodes.Item(2).ChildNodes.Item(0).Text MsgBox Dom.ChildNodes.Item(1).Child
  12. Hola si tenes razon no me habia dado cuenta que la imagen estaba linkeada, pero bueno facil de solucionar para que quede integrada, te adjunto la modificacion y en cuanto al ancho y alto de la hoja podes hacer algo asi 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 de todas formas no le veo sentido que la imagen ocupe toda la hoja y tenga que tener scroll para eso solo basta con poner una imagen con
  13. Version 1.0.0

    14 downloads

    Hola comparto una forma de agregar una imagen a la hoja con barra deslizantes, también se pude arrastrar y mover con el mouse, el ejemplo esta echo con un shape de fondo, pero este es solo para indicar en que lugar y de que tamaño se quiere la imagen. no son de mi agrado los scrollbar activeX de vba ya que no se comportan como deberían, tenia ganas de hacerlos con shapes, pero bueno quizás para otra ocasión.
  14. Hola haber si esto te puede servir, leyendo tu post principal tengo mis dudas de si era esto lo que buscabas pero bueno dentro de la hoja creo que es lo que mas se puede hacer. bueno comentando un poco de lo que hice tiene dos scroll (Que por cierto no son de mi agrado) y le agregue otra función que es para arrastrar la imagen con el mouse.(mucho mas practico) no se si tu idea es para una o varias imágenes simultaneas yo solo lo hice para una, pero se puede llegar hacer para mas.ImgConScroll.xlsm
×
×
  • Create New...

Important Information

Privacy Policy