Questo è un classico codice per inserire una immagine scelta da POP-UP...Se lo
metti in un bottone vedi che va. E\' testato sulla R5.
***************************
Dim wks As New NotesUiWorkspace
Dim doc As notesdocument
Dim immagini As String
Set doc=wks.currentdocument.document
doc.bottone="si"
Call wks.currentdocument.Refreshhideformulas()
Call wks.currentdocument.gotofield("immagine")
immagini="GIF Immagine|*.gif|JPEG immagine|*.jpg|BMP immagine|*.BMP|TIFF
immagine|*.tif|"
file_import=wks.Openfiledialog(False, "SELEZIONA UN IMMAGINE",immagini, "C:\",
"")
If Isempty(file_import) Then
Exit Sub
End If
Select Case Ucase(Right(file_import(0),3))
Case "GIF" : filtro="GIF IMAGE"
Case "JPG": filtro="JPEG IMAGE"
Case "BMP": filtro="BMP IMAGE"
Case "TIF": filtro="TIFF 5.0 Image"
Case Else : Exit Sub
End Select
Call wks.currentdocument.Import(filtro,file_import(0))
**************
Daniele Grillo - Fondatore di Dominopoint.it
|