RESOLVIDO – Não é possível aceder classe Anexos em VBA na versão 9.15   

CONCLUSÃO/SOLUÇÃO:

Através do PSO do VBA não é possível aceder aos anexos. Essa funcionalidade simplesmente não existe. É necessário inicializar a plataforma, tal como se faz numa aplicação externa (VB6 ou .NET).

Nota: é necessário adicionar o controlo à barra de ferramentas e depois ao formulário.

Segue código abaixo:

Public SDKContexto As clsSDKContexto

Private Sub UserForm_Initialize()

    'Inicializa Contexto
    InicializaSDKContexto
    
    ' Inicia o componente com o contexto do ERP
    Anexos1.Inicializa m_objSDKContexto
    
    ' Estas propriedades podem ser definidas janela de propriedades do controlo.
    Anexos1.Tabela = anxPersonalizada
    Anexos1.Chave = "PRI"
    
    Anexos1.CarregaAnexos

End Sub

Private Sub UserForm_Terminate()

    ' Garantir que os recursos libertados.
    Anexos1.Termina
    
End Sub


Private Sub InicializaSDKContexto()
    On Error GoTo erro
    If SDKContexto Is Nothing Then
    
        Set SDKContexto = New clsSDKContexto
        
        SDKContexto.Inicializa Aplicacao.BSO, "GCP"
        PSO.InicializaPlataforma SDKContexto

    End If
    Exit Sub
erro:
MsgBox Err.Description
End Sub