Este fórum está sendo desativado

[PauloRibeiro]

Boa Tarde,

Fiz o seguinte codigo:

Sub foto()
'
' Atribuir Foto

Dim Arquivo
Dim Nome2 As String
Dim Nome As String


Nome = Selection
Nome2 = Nome + ".jpg"

Arquivo = "//pfl-cps-file/OE/OED/" + Nome2 + ""

Image1.Picture = LoadPicture(Arquivo)

UserForm1.Show


End Sub



A intenção é aparecer um formulário com a foto correspondente ao caminho (Arquivo).
Na hora de executar aparece o erro: O objeto é obrigatório.

podem me ajudar?

grato

[PauloRibeiro]

Consegui.

[alexandrevba]

Boa tarde!!!

Olhando sua rotina, achei estranho, me parece confuso....

Seria possível postar seu arquivo modelo?

Ou leia:
http://www.globaliconnect.com/excel/ind ... Itemid=475

Att