Buenos dias,
A ver si me podeis ayudar.
Tengo que exportar unas imagenes a jpg y he conseguido exportarla mediante la siguiente macro:
sub ExpotarImagenes
if ActiveDocument.Variables("vPortal").GetContent.String="1" then ' Si me llega la variable vSalesforece (Entrada linea de comando)
ActiveDocument.Variables("vPortal").SetContent "0",true 'La pongo a 0 por si acaso
ActiveDocument.ActivateSheetByID "PDF"
set fso=CreateObject("Scripting.FileSystemObject")
set f1=fso.CreateTextFile("d:\Salesforce\Log" & year(Now())& month(Now())& Day(Now())&".txt",true)
n_error=0
set Obj=ActiveDocument.GetSheetObject("PDF")
if err.number<>0 then
f1.WriteLine("Objeto.Salesforce KO")
n_error=n_error+1
f1.WriteLine(err.Number &" - " & err.description)
err.clear
else
f1.WriteLine("Objeto.Salesforce OK")
end if
set Obj1=ActiveDocument.GetSheetObject("INTERCAMBIO")
if err.number<>0 then
f1.WriteLine("Objeto.INTERCAMBIO KO")
n_error=n_error+1
f1.WriteLine(err.Number &" - " & err.description)
err.clear
else
f1.WriteLine("Objeto.INTERCAMBIO OK")
end if
Obj1.ExportBitmapToFile "D:\INTERCAMBIO.jpg"
' if err.number<>0 then
f1.WriteLine("EXPORT INTERCAMBIO KO")
n_error=n_error+1
f1.WriteLine(err.Number &" - " & err.description)
err.clear
else
f1.WriteLine("EXPORT INTERCAMBIO OK")
end if
end if
Ahora necesito que se genere una imagen automaticamente filtrada por una dimension, es decir, necesito que se genere una imagen con los datos correspondientes a cada una de las oficinas que existan. Espero haberme explicado bien.
A ver si me podeis ayudar es que no soy muy experta en macros.
Muchas gracias
