VBA abrir paint.

[Deco]

Amigos , estou com um problema em meu código vba. Basicamente preciso copiar uma parte da planilha, abrir o paint e colar a imagem no paint, porém está apresentando erro na hora de dar CTRLV.

O erro está em SendKeys “^v” 'Paste

Range("a1:b10").Select
Application.CutCopyMode = False

Selection.Copy

Shell ("mspaint")

Application.Wait (Now + TimeSerial(0, 0, 1)) 'Wait for Paint to load

SendKeys "^v"   'Paste

 
MsgBox sSaudacao & "Imagem enviada para o paint !!!", vbInformation, "Equipe"

Application.CutCopyMode = False

[Grafeno]

@Deco, seja bem-vindo! Você está executando esse código a partir do LibreOffice Calc com a linha Option VBASupport 1 no topo do módulo? Qual é a mensagem de erro?

[Deco]

@Grafeno, Estou sim ! o erro está na linha SendKeys “^v” e apresenta a mensagem abaixo:

Erro em tempo de execução do BASIC.
‘73’
Não implementado.

[Grafeno]

O erro significa que não foi implementado o suporte ao método SendKeys do VBA. Mesmo com o desenvolvimento constante o suporte ao VBA pelo LibreOffice é parcial, ou seja, macros complexas eventualmente terão problema. A solução é reescrever a macro usando a API UNO, e se não for possível conseguir o mesmo resultado, utilizar estratégias diferentes. Por exemplo, vc precisa obrigatoriamente colar a imagem no paint?

[Deco]

Preciso sim, a macro funciona até abertura do paint, somente não faz o CTRL+V.