[Resolvido]Propriedade PictureSizeMode

Saudações!
A Ajuda do Access(2003) diz que é possível definir a propriedade PictureSizeMode para um controle em relatórios.
Bom, no meu código (abaixo) a definição desta propriedade gera uma mensagem "O objeto não aceita esta propriedade ou método."
Alguma correção?
(o erro ocorre na linha comentada)


Option Compare Database
Option Explicit

Private Sub Report_Open(Cancel As Integer)
On Error GoTo Trato
If DLookup("ComandosAvReport", "tUsuario", "[login] = getUsuarioAtual()") = True Then
Me.ShortcutMenuBar = "ComindReportAdmin"
Else
Me.ShortcutMenuBar = "ComindReportUser"
End If
Dim fso
Dim file As String
file = fncOrigem(mImagem) & "LOGOreports.jpg" 'caminho do arquivo
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(file) Then
Me.Controls("ImagemLogo").Picture = fncOrigem(mImagem) & "LOGOreports.jpg"
Me.Controls("ImagemLogo").PictureType = 1 'vinculada
' O objeto não aceita esta propriedade ou método
' Me.Controls("ImagemLogo").PictureSizeMode = 3 'zoom
Me.Controls("ImagemLogo").PictureAlignment = 0 'superior-esquerdo
Else
Me.Controls("ImagemLogo").Picture = ""
Info "O logotipo não foi encontrado." & vbCrLf _
& "Para exibir seu logo salve-o como 'LOGOreports.jpg' na pasta Comind\Imagem."
End If
Exit Sub
Trato:
Info Err.Description
End Sub

Você pode tentar usar o Len e o Dir:

If Len(Dir("caminho da imagem")) = 0 Then ' se o arquivo de imagem não existir
Procedimentos...
Else ' se existir
Procedimentos
End If

Saudações!
Olá Criquio,
Minha dúvida é que não consigo atribuir via código a propr. PictureSizeMode (cortar, estender, zoom) duma imagem no relatório.
Não é um problema, só postei porque na Ajuda diz que é aplicável...
Abraço!

Tente usar acOLESizeClip, acOLESizeStretch e acOLESizeZoom.

Vou ver... meu controle é Imagem, acho que acOLESizeClip, acOLESizeStretch e acOLESizeZoom funcionam só com objeto OLE.
Valeu!

Apesar do nome conter "ole", funciona para controles imagens. Verás.

Grande Criquio,
não precisei nem estudar...

Sobre imagens em relatórios:
Já vi vários posts por aí onde aparece a questão do redimensionamento de imagens em relatórios. Até tentei ajudar um colega nisso mas não pude dar sequência.
É possível manipular as propriedades da imagem (principalmente as medidas) conforme as condições? Ex: redimensionar o controle em função de a origem existir ou não.

Em função da imagem existir na pasta? Ou redimensionar de acordo os atributos da imagem? Se for de acordo os atributos da imagem, você pode usar largura e altura da imagem e comparar com as do controle:

If Me.NomeControleImagem.ImageHeight > Me.NomeControleImagem.Height or Me.NomeControleImagem.ImageWidth > Me.NomeControleImagem.Width Then
Me.NomeControleImagem.SizeMode = acOLESizeClip
Else
Me.NomeControleImagem.SizeMode = acOLESizeZoom
End If

Se for em função da imagem existir na pasta especificada, pode usar as instruções Len e Dir para pesquisar se ela existe:

If Len(Dir("Caminho da imagem")) > 0 Then
...

Se existir, retorna maior que zero, caso contrário, retorna zero.