Excel y visual basic 6

Hola
como puedo enviar una FOTO de un PICTURE de visual basic a un IMAGE de EXCEL.
de antemano gracias

1 respuesta

Respuesta
1
Me gustaria que me dieras mas detalles de tu pregunta porque no me ha quedado muy claro que es lo que quieres hacer...
estoy desarrolando una aplicacion en visual basic 6, pero deseo imprimir el reporte en excel, ya que diseño del reporte es muy preciso. para esto envio todos los datos de visual basic a excel, pero no se como enviar una FOTOGRAFIA que tengo en visual basic en un control PICTURE BOX, a un control IMAGE DE microsoft excel
Ok, no se si se pueda hacer lo que quieres, lo que yo haria seria generar un archivo de comas mediante la instruccion PRINT # (de la forma antigua con manejo de archivos)..
Te incluyo un ejemplo que encontre aqui en mi pc de mi epoca de estuiante.. solo que este es un archivo html generado... (la idea es la misma).
O bien, puedes buscar si hay algun control que lo haga directamente.
************* EJEMPLO
Dim total As Integer
Set rsEmpresa = New ADODB.Recordset
sqlstr = "SELECT * FROM sysEmpresa"
rsEmpresa.Open sqlstr, DB, adOpenKeyset, adLockOptimistic
rsEmpresa.MoveFirst
FileName = "imprimir"
Open "c:\video\" & FileName & ".htm" For Output As #1
Print #1, "<html>"
Print #1, "<head>"
Print #1, "<title>Imprimir Renta</title>"
Print #1, "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
Print #1, "<link href='estilos.css' rel='stylesheet' type='text/css'>"
Print #1, "</head>"
Print #1, "<body>"
Print #1, "<table width='37%' border='0'>"
Print #1, " <tr>"
Print #1, " <td colspan='5' class='table_label' align='center'>" & rsEmpresa("Nombre") & "</td>"
Print #1, " </tr>"
Print #1, " <tr>"
Print #1, " <td width='11%' class='table_label'>Socio</td>"
Print #1, " <td colspan='2' class='table_data'>" & lblNombre.Caption & "</td>"
Print #1, " <td width='10%' class='table_label'>Folio</td>"
Print #1, " <td width='22%' class='table_data'>" & lblFolio.Caption & "</td>"
Print #1, " </tr>"
Print #1, " <tr>"
Print #1, " <td> </td>"
Print #1, " <td width='13%'> </td>"
Print #1, " <td width='44%'> </td>"
Print #1, " <td class='table_label'>Fecha</td>"
Print #1, " <td class='table_data'>" & DTPicker1.Value & "</td>"
Print #1, " </tr>"
Print #1, " <tr>"
Print #1, " <td align='center' class='table_label'>Clave</td>"
Print #1, " <td align='center' colspan='2' class='table_label'>Titulo</td>"
Print #1, " <td align='center' class='table_label'>Desc.</td>"
Print #1, " <td align='center' class='table_label'>Precio</td>"
Print #1, " </tr>"
For i = 0 To grdRentas.Rows - 1
grdRentas.Row = i
Print #1, " <tr>"
Print #1, " <td class='table_data'>" & grdRentas.Columns(0).Text & "</td>"
Print #1, " <td colspan='2' class='table_data'>" & grdRentas.Columns(1).Text & "</td>"
Print #1, " <td class='table_data'>" & grdRentas.Columns(2).Text & "</td>"
Print #1, " <td class='table_data' align='right'>" & grdRentas.Columns(3).Text & "</td>"
Print #1, " </tr>"
total = total + grdRentas.Columns(3).Text
Next i
Print #1, " <tr>"
Print #1, " <td> </td>"
Print #1, " <td> </td>"
Print #1, " <td colspan='2' align='right' class='table_label'>Total</td>"
Print #1, " <td class='cell_total' align='right'> $" & total & "</td>"
Print #1, " </tr>"
Print #1, " <tr>"
Print #1, " <td colspan='5'> </td>"
Print #1, " </tr>"
Print #1, "</table>"
Print #1, "</body>"
Print #1, "</html>"
Close #1

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Qué tipo de componentes electrónicos son estos?

Que tipo de componentes electrónicos P601, P602, P605, P606 de una fuente de alimentación son los que figuran en enlace siguiente: https://ibb.co/rMDX8Z9 Y otra pregunta, si se nota calentamiento en esa zona al estar en un color más oscuro.
2 respuestas

Existen proyectores de dibujo para niños mayores?

Me gustaría comprar un proyector de dibujo pero sólo encuentro los típicos de niños pequeños de coches, princesitas o dibujitos simples, pero a mi me interesaría poder mandar imágenes desde el mv para poder dibujar cualquier cosa en papel con la...
2 respuestas

Hello, forum members! I have encountered a problem with maintaining interest in online communication

Hello, forum members! I've been having some trouble lately with keeping the spark alive in online conversations. It seems like no matter how they start, the chats tend to lose momentum after a while, especially when it’s just through text messages or...
3 respuestas

BUENAS identificar idioma de teclado y región

Estoy haciendo cambiando español usa y latino y este teclado me dice que tiene ñ y aparte algunas ALT no funcionan en estos dos idiomas, por favor cual idioma es y la región es un mini teclado mecánico profesional JYR TGMJR-007 quiero saber si hay o...
5 respuestas

ChatGPT Polsku: Innowacyjne Rozwiązania dla Każdego w 2024

ChatGPT Polsku, w najnowszej wersji na rok 2024, oferuje użytkownikom szeroki wachlarz unikalnych funkcji, które sprawiają, że jest to niezastąpione narzędzie w codziennym życiu. Jedną z kluczowych cech, która wyróżnia tę platformę, jest jej...
4 respuestas

Disco duro nuevo de 1TB que solo muestra 31MB

He conectado un disco nuevo, un WesternDigital de 1TB, a un PC de hace unos años. Al conectarlo la primera vez con un adaptador externo USB a mi portátil, el equipo reconocía la capacidad de 1TB, pero al conectarlo a un puerto SATA de la torre donde...
4 respuestas

Conversión de números a letras en LPP

Necesito desarrollar un algoritmo con la función MIENTRAS que permita la entrada de un numero de un dígito y escriba su valor en letras, el algoritmo se debe repetir hasta que se ingrese una letra. Ejemplo: si el usuario digita el número 4, el...
3 respuestas

Poner contraseña en visual basic thisworkbook

Tengo una función en ThisWorkbook que elimina el libro al llegar a una fecha de caducidad, ahora requiero colocar una contraseña para protección, la cual, al colocar una contraseña errónea, ejecute el borrado de la hoja
2 respuestas

Por que mi monitor se ve distinto a una Tv?

Estoy intentando comprar un Smart Tv que pueda usar como segunda pantalla para jugar con mi PC cuando quiera recostarme en el sillón. Pero no se cual comprar, ya que con distintos televisores que probe, la imagen se ve como con sombras en los...
3 respuestas

Cómo descargar juegos para una Game stick

Tengo un Game stick memory y quería descargar más juegos retro desde internet. Por lo que he leído tienen que serjuegos con formato relacionado en DDM/SJE/BVE/MAME/FC/GB/GBA/GBC/MD/SFC/PS1/ ¿Podría decirme cómo hago esto?
18 respuestas