Hola! como estás?
Ahora parece ser que quisiera funcionar la macro, pero no he logrado que llegue hasta el final porque me arroja error cuando tiene que adjuntar el archivo (lo cual normalmente funciona bien)... no lo entiendo, porque estuve revisando si el archivo seguía guardandose con el mismo formato y en la misma carpeta y, por lo que vi, está todo correcto.
Buenas tardes!
Estuve haciendo la prueba. La macro no llega a finalizar porque arroja el error que muestro en los archivos adjuntos. No entiendo por qué no logra encontrar los archivos al ejecutar el loop, porque si utilizo la macro original (es decir, sin el loop), funciona correctamente.
Se me ocurría que quizá al copiar y pegar el codigo en la celda P17 quizá estuviera poniendo algo extra en el nombre del archivo a crear que hiciera que el recibo creado no se guardara exactamente con el mismo nombre por el que luego la macro lo intentaría localizar el para enviarlo por mail, pero revisé y aparentemente los archivos se guardan con el mismo formato que se guardaron siempre.
Sabrán qué puede ser?
Por
Corvette, · publicado
hola que tal no se como poder poner un listbox con barra de dezplamiento horizontal
¿alguna sugerencia?
este es mi codigo que no funciona
Private Sub Lst_nombres_Click()
Call DisplayHScroll
End Sub
Private Sub DisplayHScroll()
' Make no partial items are displayed vertically.
Me.Lst_nombres.IntegralHeight = True
Dim x As Integer
' Add items that are wide to the ListBox.
For x = 0 To 10
Me.Lst_nombres.Items.Add ("Item " + x.ToString() + " is a very large value that requires scroll bars")
Next x
' Display a horizontal scroll bar.
Me.Lst_nombres.HorizontalScrollbar = True
' Create a Graphics object to use when determining the size of the largest item in the ListBox.
Dim g As System.Drawing.Graphics
g = Lst_nombres.CreateGraphics()
' Determine the size for HorizontalExtent using the MeasureString method using the last item in the list.
Dim hzSize As Integer
g.MeasureString(lst_nombre.Items(Lst_nombres.Items.Count - 1).ToString(), Lst_nombres.Font).Width
' Set the HorizontalExtent property.
Me.Lst_nombres.HorizontalExtent = hzSize
End Sub