MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Erro "70" na execução "permissã negada"

    Compartilhe

    antonio.borsari@globo.com
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 05/07/2015

    Erro "70" na execução "permissã negada"

    Mensagem  antonio.borsari@globo.com em Dom 05 Jul 2015, 20:43

    Caros amigos preciso de uma ajuda, estou tentando importar um gráfico do Excel para uma userforme e esta dando um erro em tempo de execução "70" "permissão negada" como sege a baixo:

    Private Sub UserForm_Initialize()


    Set currentchart = Sheets("Plan1").ChartObjects(1).Chart
    currentchart.Parent.Width = 200
    currentchart.Parent.Height = 200

    nome = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    currentchart.Export Filename:=nome, filtername:="GIF"

    Image1.Picture = LoadPicture(nome)

    End Sub

      Data/hora atual: Qui 19 Out 2017, 13:27