Comunidad Underground Hispana  

Retroceder   Comunidad Underground Hispana > Programacion > Visual Basic y Net


Like Tree1Me Gusta
  • 1 Post By Fashion

Respuesta Crear Nuevo Tema
 
Compartir en twitter LinkBack Herramientas Desplegado
Antiguo 17-oct-2009, 14:05   #1
Habitual
 
Avatar de NIGHTBIRD
 
Fecha de Ingreso: agosto-2008
Amigos 0
Mensajes: 156
Gracias: 6
Agradecido 1 vez en 1 mensaje.
Predeterminado EXCEL Insertar imagen en celda con macro y borrarla con macro

Hola, este es mi primer post en el foro

Mi problema es que necesito una macro que:
1º te permita seleccionar una foto
2ºinsertarla en la zona destinada a ella (una celda determinada) con el tamaño de dicha celda.

Tambien necesito otra macro que borre la imagen que se ha insertado con la primera macro.

Me he tirado toda la tarde buscando por internet, y nada de nada... : (
Solo he encontrado esto para la primera macro pero solo me permite seleccionar la foto:

Código:
Sub Inserta()
'
' Inserta Macro
'
' Acceso directo: Ctrl+Mayús+W
'

Application.Dialogs(xlDialogInsertPicture).Show

End Sub
  
Un saludo y gracias de antemano.
__________________
Si lloras por no poder ver el sol, las lágrimas no te dejarán ver las estrellas.

Con la sangre de un valiente y un rayo de sol, Dios creó una bandera y se la dió al pueblo español.

NIGHTBIRD está desconectado   Responder Citando
Antiguo 17-oct-2009, 16:40   #2
Moderador
 
Avatar de Fashion
 
Fecha de Ingreso: junio-2007
Amigos 4
Mensajes: 2.056
Gracias: 55
Agradecido 839 veces en 327 mensajes.
Predeterminado Re: EXCEL Insertar imagen en celda con macro y borrarla con macro

Cita:
Iniciado por NIGHTBIRD
Hola, este es mi primer post en el foro

Mi problema es que necesito una macro que:
1º te permita seleccionar una foto
2ºinsertarla en la zona destinada a ella (una celda determinada) con el tamaño de dicha celda.

Tambien necesito otra macro que borre la imagen que se ha insertado con la primera macro.

Me he tirado toda la tarde buscando por internet, y nada de nada... : (
Solo he encontrado esto para la primera macro pero solo me permite seleccionar la foto:

Código:
Sub Inserta()
'
' Inserta Macro
'
' Acceso directo: Ctrl+Mayús+W
'

Application.Dialogs(xlDialogInsertPicture).Show

End Sub
  
Un saludo y gracias de antemano.
Haz lo siguiente:
- Ir al Menu Proyecto -> Referencias -> Selecciona "Microsoft Excel 12.0 Object Library" -> Aceptar.
- Luego agrega el siguiente codigo:
Código:
Private objExc As New Excel.Application

Private Sub CmdAgregar_Click()
  objExc.Visible = True 'Archivo excel visible
  objExc.SheetsInNewWorkbook = 1 ' Agregamos 1 hoja
  objExc.Workbooks.Add ' agrego 1 libro
  ' insertamos un imagen por ejemplo "VisualBasic6.0.jpg"
  objExc.Range("A1").Select ' Celda A1
  objExc.ActiveSheet.Pictures.Insert("C:\VisualBasic6.0.jpg").Select
  objExc.Selection.Name = "Libro de Imagen"
End Sub

Private Sub CmdEliminar_Click()
  objExc.ActiveSheet.Shapes("Libro de Imagen").Select
  objExc.Selection.Delete ' borramos imagen
  objExc.Range("A1").Select ' Celda A1
End Sub

Private Sub CmdCerrar_Click()
  objExc.Quit ' Cierra libro
End Sub
  
PD: Microsoft Excel 12.0 Object Library -> Puede ser otra versión no necesariamente la 12.0.
__________________

[Solo usuarios registrados pueden ver los links. REGISTRARSE]

Fashion está desconectado   Responder Citando
Antiguo 18-oct-2009, 09:43   #3
Habitual
 
Avatar de NIGHTBIRD
 
Fecha de Ingreso: agosto-2008
Amigos 0
Mensajes: 156
Gracias: 6
Agradecido 1 vez en 1 mensaje.
Predeterminado Re: EXCEL Insertar imagen en celda con macro y borrarla con macro

Cita:
Iniciado por Fashion
Haz lo siguiente:
- Ir al Menu Proyecto -> Referencias -> Selecciona "Microsoft Excel 12.0 Object Library" -> Aceptar.
- Luego agrega el siguiente codigo:
Código:
Private objExc As New Excel.Application
  ...
  ' insertamos un imagen por ejemplo "VisualBasic6.0.jpg"
  objExc.Range("A1").Select ' Celda A1
  objExc.ActiveSheet.Pictures.Insert("C:\VisualBasic6.0.jpg").Select
  ...
  
Pero con esto tengo que decirle el nombre de una imagen determinada, no? Yo lo que quiero es poder seleccionarla, es decir, que me habra una ventanita con la que yo pueda navegar entre carpetas y seleccionarla. Podria hacerse con ese código??

Un saludo y gracias por responder
__________________
Si lloras por no poder ver el sol, las lágrimas no te dejarán ver las estrellas.

Con la sangre de un valiente y un rayo de sol, Dios creó una bandera y se la dió al pueblo español.

NIGHTBIRD está desconectado   Responder Citando
Antiguo 18-oct-2009, 10:17   #4
Moderador
 
Avatar de Fashion
 
Fecha de Ingreso: junio-2007
Amigos 4
Mensajes: 2.056
Gracias: 55
Agradecido 839 veces en 327 mensajes.
Predeterminado Re: EXCEL Insertar imagen en celda con macro y borrarla con macro

Cita:
Iniciado por NIGHTBIRD
Cita:
Iniciado por Fashion
Haz lo siguiente:
- Ir al Menu Proyecto -> Referencias -> Selecciona "Microsoft Excel 12.0 Object Library" -> Aceptar.
- Luego agrega el siguiente codigo:
Código:
Private objExc As New Excel.Application
  ...
  ' insertamos un imagen por ejemplo "VisualBasic6.0.jpg"
  objExc.Range("A1").Select ' Celda A1
  objExc.ActiveSheet.Pictures.Insert("C:\VisualBasic6.0.jpg").Select
  ...
  
Pero con esto tengo que decirle el nombre de una imagen determinada, no? Yo lo que quiero es poder seleccionarla, es decir, que me habra una ventanita con la que yo pueda navegar entre carpetas y seleccionarla. Podria hacerse con ese código??

Un saludo y gracias por responder
Haz lo siguiente:
- ir a Menu Proyectos -> Componentes -> Selecciona Microsoft Common Dialog Controls -> Aceptar.
- Agrega el control Microsoft Common Dialog Controls a tu Formulario, por defecto tendrá el nombre CommonDialog1
- Agrega el siguiente código:

strDirImg -> Almacena la dirección del archivo seleccionado.
Código:
Private objExc As New Excel.Application
Private strDirImg As String
  
Función para abrir un archivo:
Código:
Private Sub CmdAbrir_Click()
  'Abrimos ventana de dialogo (Abrir - Guardar)
  CommonDialog1.ShowOpen
  'Si seleccionamos un archivo mostramos la ruta
  If CommonDialog1.FileName <> "" Then
    strDirImg = CommonDialog1.FileName ' almacenamos la dirección
  End If
End Sub
  
Reemplaza "C:\VisualBasic6.0.jpg" por strDirImg
Código:
Private Sub CmdAgregar_Click()
  .............................
  .............................
  ' Agrega a está linea la variable strDirImg (contiene la dirección del archivo) 
  objExc.ActiveSheet.Pictures.Insert(strDirImg).Select
  .............................
End Sub
  
_kyle17 le gusta esto.
__________________

[Solo usuarios registrados pueden ver los links. REGISTRARSE]

Fashion está desconectado   Responder Citando
Respuesta

Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder mensajes
No puedes subir archivos adjuntos
No puedes editar tus mensajes

Los Códigos BB están Activado
Las Caritas están Activado
[IMG] está Activado
El Código HTML está Desactivado
Trackbacks están Activado
Pingbacks están Activado
Refbacks están Activado



Temas Similares
Tema Autor Foro Respuestas Último mensaje
Macro y Sendkeys rollape Visual Basic y Net 4 12-ene-2009 12:54
Macro Scheduler Std 10.1.7 programas-gratis Top 100 0 21-ago-2008 09:14
Macro Scheduler Std 9.1.05 programas-gratis Top 100 0 21-oct-2007 17:52
Macro Scheduler Std 9.0 programas-gratis Top 100 0 13-feb-2007 04:15
Macro Scheduler 7.4.004 programas-gratis Top 100 0 14-sep-2005 11:46



Portal Hacker
Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.0