Ver Mensaje Individual
  #1 (permalink)  
Antiguo 04/06/2011, 10:05
fagoncis
 
Fecha de Ingreso: enero-2008
Mensajes: 70
Antigüedad: 16 años, 3 meses
Puntos: 0
problema para insertar imagenes a powerpoint desde asp clasico UN RETO

Hola de nuevo:

Tengo la siguiente pagina en asp clasico;

<html>
<head>
<title>PRUEBAS POWERPOINT</title>
</head>
<body>
<%
resultado = Conectarse(objBase)
\"
contador = 0
SQL_conexion = "SELECT * FROM tabla"
set objV = server.CreateObject("ADODB.recordset")
objV.Open SQL_conexion, objBase,1

PPNAME="MYPP\MYPPT.PPT"

Set ppOBJ = Server.CreateObject("PowerPoint.Application")

Set ppPres = ppObj.Presentations.Add


With ppPres
While Not objv.EOF
contador = contador + 1
TIPOLETRA = 26

With .Slides.Add(contador, 1)
.SlideShowTransition.AdvanceOnTime = True
.SlideShowTransition.AdvanceTime = 10
Set shpCurrShape = .Shapes.AddPicture(ruta_de_foto_absoluta, False, True, 0, 0,700,400)
With shpCurrShape
.Width = 700
.Height = 400
.Left = 0
.Top = 0
End With
End With
objv.MoveNext
Wend
End With

ppPres.SaveAs server.mappath(ppname)


%>
PowerPoint CREADO <a href="<%=ppName%>">PULSA AQUI</a> PARA DESCARGARLO.
</body>
</html>

La cuestion es que este codigo debe crear una diapositiva por cada registro e insertar la foto correspondiente, pero cuando se encuentra con una foto de unas 60k o mas se queda bloqueado en la linea de '.Shapes.AddPicture' y no avanza. no es solucion redimensionar las fotos pues el mismo codigo en vba de excel o access funciona perfectamente, ademas que perderian la calidad que tienen.

Me esta volviendo loco el problema, no se si se trata de configurar algo en el servidor o que debo actualizar algo. AYUDAAAAAAAAAAAAAAAA

gracias