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
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

Website verification: Process and what to look forWhen you are dealing with a new website,

When you are dealing with a new website, it is very important to verify that the website is legitimate and not a scam. This process can be done by looking for certain things on the website, such as contact information, privacy policy, and terms and...
2 respuestas

¿Por que Mi radio 2 din enciende pero la pantalla se queda en negro?

Tengo una radio jvc kw-m741bt, que enciende pero la pantalla se queda en negra, al principio se volvía loca y se ponía la pantalla en negro a veces, ¿Pero se quitaba y ahora ya se quedo en negro y no hace nada . Alguna sugerencia? Ayudarme por favor...
2 respuestas

Como hacer funcionar este viejo videojuego?

He rescatado del trastero un videojuego de mi niñez que parece funcionar pero no consigo sintonizarlo en las teles modernas, se llega a ver algo pero asi imposible jugar no se si el tipo de señal ya no es compatible en la actualidad o como poder...
2 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?
15 respuestas

Laptop Lenovo Z40-70 a veces da señal y a veces no...

Tengo una Laptop Lenovo Z40-70 que a veces al encenderla no manda señal, encienden los leds, pero no da señal en pantalla y en otras ocasiones prende y funciona sin problema, pero si la apago y la vuelvo a encender o la reinicio ya no da señal, por...
3 respuestas

Placa base similar asus m5a88-m evo

¿Alguna placa base de hoy en día que sea similar o mejor a la Asus m5a88 m evo?! Me está fallando, esta misma ya la encuentro descatalogada.., no sé si habrían problemas de incompatibilidad con tema software... Aun ando con XP y programas antigüos de...
2 respuestas

Realmente funciona la inteligencia artificial de los TV LG

Recién me compré una TV Lg C9 de 55 pulgadas y respecto a la AI que trae el procesador a9 segunda generación tengo mis serias dudas respecto a la mejora de imagen. Según LG este procesador es capaz de mejorar la imagen y el sonido por algoritmos pues...
3 respuestas

Bat para buscar archivo especifico y haga una copia en una determinada ruta

Esto automatizando un bat que en primera instancia lo que hace es hacer una copia de otro archivo bat que está en el escritorio, el problema que tengo es que está limitado con una ruta especifica lo cual es un problema pues para funcione debo dejar...
3 respuestas

¿El aumentar memoria RAM en mi pc podrá acelerar la presencia de fotos?

Mi pc (de escritorio) tiene la board M5A78L-M y 12gb de memoria RAM. Cuando abro una carpeta con 50 o 100 fotografías estas se demoran en aparecer, especialmente las RAW. ¿Si aumento la memoria RAM con una tarjeta de 16gb 1600 sería la solución?
2 respuestas

Boot para firmar pdf con firma digital

Tengo que firmar numerosos pdf's con firma digital, ¿Habría alguna manera de automatizar la tarea con un boot? La firma se realizaría siempre en la misma hoja dependiendo del documento, tengo dos tipos de documentos. Ejm: Documento 1 simpre la firma...
4 respuestas