Ver Mensaje Individual
  #2 (permalink)  
Antiguo 10/02/2012, 05:12
pumi
 
Fecha de Ingreso: marzo-2007
Mensajes: 127
Antigüedad: 17 años, 1 mes
Puntos: 2
Respuesta: Colocar una imagen en un informe

Hola a todos de nuevo:

Ya lo he conseguido. He colocado un control de imagen y en su evento doble click he puesto el siguiente código:

--------------------------------------------------------------------------------------------------


Dim fd As Variant
Dim vrtSelectedItem As Variant


Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd 'Use a With...End With block to reference the FileDialog object.
.AllowMultiSelect = False

'Use the Show method to display the File Picker dialog box and return the user's action.
'The user pressed the button.
If .Show = -1 Then

'Step through each string in the FileDialogSelectedItems collection.
For Each vrtSelectedItem In .SelectedItems

Imagen.Picture = vrtSelectedItem

Next vrtSelectedItem
'The user pressed Cancel.
Else
MsgBox "Accion cancelada", , "cancelado"
End If
End With

--------------------------------------------------------------------------------------------------

Mirando en la ayuda de access, he visto que para usar el "Application.FileDialog(msoFileDialogFilePicke r)", se debía incluir la referencia a "Microsoft office 11.0 Object Library". Como estoy usando el office 2007, la referencia que he encontrado es a la versión 12.0 de la librería.

Lo que no se es si se puede establecer la referencia a esa librería (o a cualquier otra) mediante programación, comprobando antes que dicha referencia no esté ya establecida.

Gracias de nuevo y un saludo.