Visual Basic para Aplicaciones - como llevar imagenes que se insertaron en un formulario de vb a excel??

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 2
Ha aumentado su posición en 2 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

como llevar imagenes que se insertaron en un formulario de vb a excel??

Publicado por Maria Rosario (2 intervenciones) el 13/02/2019 19:08:24
Buenas tardes, alguien sabe como llevar imágenes cargadas en un formulario de visual basic a una celda en Excel?
para insertar imágenes en un formulario de vb lo hice en un botón examinar cuyo código es este: y funciona


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub ButtonEXAMINAR_Click(sender As Object, e As EventArgs) Handles ButtonEXAMINAR.Click
 
    Dim open As New OpenFileDialog
    '       {  
    '   System.IO.StreamReader SR = New   
    '      System.IO.StreamReader(openFileDialog1.FileName);  
    '   MessageBox.Show(SR.ReadToEnd());  
    '   SR.Close();  
    '} 
    If open.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
        PictureBox3.ImageLocation = open.FileName
        PictureBox3.SizeMode = PictureBoxSizeMode.Zoom
    End If
 
End Sub


El lio esq para empezar este sistema es en si de registro, toma como una bd un archivo de Excel el cual crea una planilla ua editada, y lo que cargan en el sistema, va llenando a esa planilla, solo que no consigo un código para llevar imágenes a una celda en Excel, en lenguaje visual basic

intente con los métodos que salen en vba pero no salen... alguien si me pudiera ayudar por favor
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Norberto
Val: 115
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

como llevar imagenes que se insertaron en un formulario de vb a excel??

Publicado por Norberto (34 intervenciones) el 19/02/2019 14:57:13
Hola:

Veo que estás usando .NET y no sé muy bien cómo funciona. Quizás en otro foro... No obstante te digo cómo se gestiona Excel desde VBA (creo que en VB6 también es así). En el editor de VBA añades la referencia a Microsoft Excel xx.x Object Library. Si lo estás haciendo directamente en Excel no sería necesario.

Definimos una variable de objeto para Excel, otra para el libro, otra para la hoja y otra para la celda
1
2
Dim miExcel As Excel.Application, miLibro As Excel.WorkBook, miHoja As Excel.WorkSheet
Dim miCelda As Excel.Range
Abrimos Excel.
1
2
Set miExcel = CreateObject("Excel.Application")
miExcel.Visible = True
Abrimos el libro.
1
Set miLibro = miExcel.Workbooks.Open(ruta)

Seleccionamos la hoja de trabajo.
1
Set miHoja = miLibro.WorkSheets(nombre o número de la hoja)

Seleccionamos la celda.
1
Set miCelda = miHoja.Range(dirección de la celda)

Insertamos la imagen y la posicionamos en la celda.
1
2
3
4
With ActiveSheet.Pictures.Insert(ruta de la imagen)
    .Left = miCelda.Left
    .Top = miCelda.Top
End With

Vaciamos las variables de objeto
1
2
3
4
Set miCelda = Nothing
Set miHoja = Nothing
Set miLibro = Nothing
Set miExcel = Nothing

Espero haberte sido de ayuda.

Un saludo,

Norberto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar