[Resolvido] Automação VBA em CorelDRAW

[Cartoon 0]

Olá pessoal

 

Eu trabalho com CorelDRAW já algum tempo só que agora eu querendo fazer umas automações com VBA, mas sei bem pouco, então esotu procurando ajuda nesse sentido. preciso colocar em meu código uma mensagem de erro pra cancelar uma ação, pois o código tá gerando um erro em tempo de execução. se alguém puder me ajudar eu agradeço de antemão.

 

vejam o código:

 

Sub Macro1()

Dim s As Shape

Set s = ActiveSelection

Set s = s.ConvertToBitmapEx(cdrCMYKColorImage, False, False, 300, cdrNormalAntiAliasing, True, True, 95)

End Sub

 

no código um objeto tem que está selecionado senão dá erro, então uma mensagem de erro deve surgir quando não houver nada selecionado, uma mensagem tipo: nenhum arquivo selecionado.

 

vlw.

[Cartoon 0]

ok... uffa

 

Consegui... eu usei a instrução On Error GoTo, especifiquei a chamada, ficou assim

__________________________

 

Sub Macro1()

Dim s As Shape

Set s = ActiveSelection

 

On Error GoTo ErrHandler

 

Set s = s.ConvertToBitmapEx(cdrCMYKColorImage, False, False, 300, cdrNormalAntiAliasing, True, True, 95)

 

ExitSub:

Exit Sub

ErrHandler:

ShowError

Resume ExitSub

End Sub

 

Public Sub ShowError(Optional Location As Long = 0)

Dim s As String

If Location <> 0 Then s = " [" & Location & "]" Else s = ""

MsgBox "Nenhum arquivo selecionado"

End Sub

___________________________

 

beleza, essa intrução tratou esse tipo erro