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

Gráfico Comparativo por Semanas, en Power Bi.

Espero se encuentren muy bien. Tengo una tabla en Power BI con fechas, códigos, costos y cantidades. La necesidad que tengo es de crear un gráfico o tabla donde pueda comparar y analizar el comportamiento de los costos y las cantidades de un código...
1 respuesta

Consulta de Excel

Lo primero Feliz Navidad y un grandioso año 2007 junto a quienes te rodean. En excel como puedo por ejemplo ingresar un dato en la hoja1 celda A1 y que en la hoja 2 ingrese en A1, después ingresar una segunda información en hoja1 celda a1 y en la...
1 respuesta

Resaltar filas

Estimado txolovinsky, mi pregunta es referida a excel: Tengo una base de datos en excel que tiene aproximadamente 300 filas y 60 columnas de diferente información, en una ocasión vi un trabajo en una oficina en la cual se pincha una celda y se...
1 respuesta

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...
8 respuestas

How do you perform Change Data Capture when replicating Salesforce data?

A challenge that comes with using these cloud-based CRMs is in integrating them with the internal data systems and reporting modules that rely upon getting up to date data from the CRM.
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...
7 respuestas

Why Fintech is attracting so much attention from investors?

In recent years, financial technology, or "fintech" has become one of the hottest sectors in the tech world, attracting billions of dollars in investment from some of the biggest names in the business. There are a number of reasons why fintech is so...
6 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...
6 respuestas

¿Dónde puedo conseguir en formato digital la revista de National Geographic Volumen 143, No. 1, Enero 1973, versión en español?

Busco la revista National Geographic con Fecha Enero 1973, En Español, Volumen 143, No. 1.
1 respuesta

The Panda Master app is available on various platforms

The Panda Master app is available on various platforms, making it easy for users to play on the go, whether they are commuting, taking a break, or relaxing at home. Its intuitive design and user-friendly interface mean that even those who are not...
2 respuestas