Pesquisar na Comunidade

Olá, pessoal queria saber qual comando posso usar para obter o caminho do arquivo coreldraw que esta ativo no momento que executo a macro.Tente usar o comando "ThisWorkbook.Path" mas ele não funciona.

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

Bom dia pessoal, desculpe se eu estiver fazendo algo errado, sou novo no fórum, estou apenas em busca de informação e conhecimento. Ultimamente eu venho tentando mexer com dados variáveis no Pacote Office, até aí tudo bem, tudo fácil, porém quando fui aplicar no Corel surgiu muitas barreiras e mesmo com pesquisa está complicado de achar solução. Queria saber se alguém já mexeu com dados variáveis no CorelDrawn e especificadamente com Códigos de Barra e principalmente DataMatrix com dados variáveis? Caso sim gostaria de saber quais o meios que poderiam ser usados pra conseguir fazer isso. Já tentei alguns métodos, com código de barras deu certo, fiz tudo e ficou muito bom! Porém a maioria dos plugins que disponibilizam um serial Trial, não dão as funcionalidades suficientes para que possamos ver de fato se é aquilo que queremos para fazer o pagamento, logo infelizmente muito deles não deixam a gente testar e até mesmo achar códigos como DataMatrix. Desde já agradeço a atenção!!

Bom dia Pessoal tudo bem? Estou com um problema de compartilhamento de arquivo. Vários computadores, estão conectados em cabo de rede, e ou wifi. O meu computador é o único, que quando abro um arquivo em Corel, e salvo, os outros computadores não conseguem ver esse arquivo, somente a 'cópia de segurança' do mesmo.

Olá, Eu tenho um arquivo salvo em Corel 20 e preciso salvar na versão X7. Já usei todos os converters online, mas nenhum está funcionando... será que alguém pode me ajudar? Abs, Bruno

Boa tarde! Desenvolvi um aquivo no PHOTOSHOP para impressão em gráfica... Fiz todo o arquivo em curvas, converti os textos para curvas também e salvei em PDFx1 Ao enviar para a gráfica, eles informaram que o arquivo não estava em VETOR Então baixei o Corel no meu computador para ver o arquivo estava abrindo e ao abrir o PDF que deveria estar em vetor ele abre como camadas de BITMAP Como posso resolver isso? Para que o arquivo abra em curva, uma vez que deixei ele todo em curvas no photoshop. Obrigada!

Olá, pessoas... Gostaria de uma ajudinha com um TexBox no CorelDRAW... mais precisamente eu gostaria de atualizar automaticamente uma TextBox a partir de uma ListBox, ou seja, na ListBox existem opções que precisam de valores distintos entre si para ser exibido no TextBox quando for selecionado... Caso alguém puder auxiliar, eu agradeço de antemão...

Estou exportando uma imagem em png, um background de 1366x768 com uma área de transparência no centro com 687x712. Na borda dessa área transparente tenho outra camada também com transparência no centro, formando uma moldura em cima do background. Ao exportar a camada da "moldura" aumenta uns 20/30 pixels. A solução foi converter a imagem em bitmap antes de exportar, mas gostaria de saber o porque na exportação esta alterando a medida da camada de cima. Obrigado.