coreldraw CorelDraw com erro de objeto

[Paulo R.]

olá pessoal, sei um pouco de VBA e queria fazer uma macro que quando executada dentro de manual ele pegue uma imagem que esta na mesma pasta do arquivo CorelDraw, posicione no espaço e dimensione já com as medidas, depois disso ele apague a imagem existente e coloque a nova imagem na mesmo posição da imagem antiga dentro da camada.
Estou usando o comando ActiveWorkbook.Path para pegar o caminho na rede onde esta o arquivo CorelDraw mas parece que ele não reconhece e esta dando o segui erro: Objeto requerido (Erro 424).
Poderia me ajudar?
OBS: código ainda não esta completo!

Código:

 

Sub trocar_imagens()
    ' Recorded 03/03/2023

     Dim impopt As StructImportOptions
    Set impopt = CreateStructImportOptions
    With impopt
        .Mode = cdrImportFull
        .MaintainLayers = True
        With .ColorConversionOptions
            .SourceColorProfileList = "sRGB IEC61966-2.1,U.S. Web Coated (SWOP) v2,Dot Gain 20%"
            .TargetColorProfileList = "sRGB IEC61966-2.1,U.S. Web Coated (SWOP) v2,Dot Gain 20%"
        End With
    End With
    'Dim pasta As ImportFilter
    'Set pasta = ActiveWorkbook.Path & "\" & "\IMAGENS\FIG. A1.JPG"
    'pasta.Finish

    'pasta = A
   'MsgBox pasta
    Dim impflt As ImportFilter
    Set impflt = ActiveDocument.Pages(24).Layers("Camada 1").ImportEx(ActiveWorkbook.Path & "\IMAGENS\FIG. A1.JPG", cdrJPEG, impopt)
    impflt.Finish
    Dim s1 As Shape
    Set s1 = ActiveShape
    ActiveDocument.Pages(24).Layers("Camada 1").Shapes(1).Move -0.198937, -0.752177
    ActiveDocument.ReferencePoint = cdrCenter
    ActiveDocument.Pages(24).Layers("Camada 1").Shapes(1).SetSize 6.889764, 4.774157
    ActiveDocument.Pages(24).Layers("Camada 1").Shapes(1).SetPosition 4.133858, 5.11811
    ActiveDocument.Pages(24).Layers("Camada 1").Shapes(3).Delete
    ActiveDocument.Pages(24).Layers("Camada 1").Shapes(2).OrderBackOf ActiveDocument.Pages(24).Layers("Camada 1").Shapes(1)
    ActiveDocument.Pages(25).Activate
End Sub