10/02/2012, 05:12
|
| | Fecha de Ingreso: marzo-2007
Mensajes: 127
Antigüedad: 17 años, 8 meses 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. |