Converter cor da imagem para escala de cinzentos

Olá a todos,

Estou c/ mais um problema para resolver, pretendo converter a cor de uma imagem para a escala de cinzentos.

Na net só encontro material para VB.net, mas neste site: http://www.andreavb.com/forum/viewtopic_7166.html

encontrei o seguinte código, mas está sempre a dar erro:

Código:

Option Explicit

Private Sub Command1_Click()
    Dim x As Long
    Dim y As Long
    Dim c As Long
    Dim r, g, b As Byte

    Picture1.Picture = LoadPicture("d:\disegni\fridgedoor_1683_28908208.gif")
    'convert picture lo grayscale
    With Picture1
    For x = 1 To .ScaleX(.Picture.Width, vbHimetric, vbPixels)
        For y = 1 To .ScaleY(.Picture.Height, vbHimetric, vbPixels)
            c = .Point(.ScaleX(x, vbPixels, .ScaleMode), .ScaleY(y, vbPixels, .ScaleMode))
            If c > 0 Then
                b = c Mod 256
                c = c \ 256
                g = c Mod 256
                r = c \ 256
                c = (r + g + b) / 3
                Picture1.PSet (.ScaleX(x, vbPixels, .ScaleMode), .ScaleY(y, vbPixels, .ScaleMode)), RGB(c, c, c)
            End If
        Next
    Next
    End With
End Sub

Conseguem-me ajudar?

Cumprimentos

Bruno Gordino

Boa noite,
Desafortunadamente o controlo Picture do Access não tem propriedade nem uma para interagir com a imagem que vai a apresentar.
Propriedades como Scale, ScaleMode, PSet e outras não fazem parte do VBA, pelo que (até onde eu sei) não é possível converter ese código vb.Net para VBA.
Pode sim, utilizar bibliotecas de terceiros (como KamelSoft) ou criar a sua propria aplicação em vb6/VB.net para fazer ese trabalho e consumir o resultado.
Saludos

Viva,
Parece que foi a 1ª vez que nos encontramos aqui no 'Forum'.
Então será melhor abandonar o projeto ...
Muito obrigado pela atenção que me dispensou, obrigado mesmo.
Entretanto vou deixar o tópico em aberto não apareça aí alguma luz ...
Cumprimentos

Bruno Gordino