Access - Bajar peso de la BD

 
Vista:

Bajar peso de la BD

Publicado por Javier Martín (1 intervención) el 21/11/2013 13:46:33
Buenos días:
Espero explicar bien mi problema
Tengo un Access con las tablas de la bd divididas.
En la parte grafica de Access muestro en dos marcos de objetos dependientes un mismo power point incrustado.
En el primer marco de objeto muestro la primera diapositiva del pptx y en el segundo marco de objeto muestro la segunda diapositiva del mismo pptx.
Las imágenes de esos marcos las recupero mediante URL, en ningún momento guardo el pptx en la bd.
He aquí mi problema:
La parte grafica de mi Access aumenta sustancialmente el peso aun no teniendo el pptx guardado.
El backend donde están las tablas sin embargo no pesa nada como es normal. Pero no entiendo por qué la parte grafica aumenta tanto de peso si recupero ese power point mediante URL.
¡Espero una respuesta de la comunidad!
¡Gracias!

Option Compare Database

' Initialize variables.
Const FIRSTSLIDE = 256
Dim pptObj As Object
Dim slideindex As Long, slidecount As Long

Private Sub Form_Load()

Dim present As Object
' Start Microsoft Powerpoint and open an existing presentation.

Set pptObj = CreateObject("PowerPoint.Application")
Set present = pptObj.Presentations.Open _
("C:\powerpointprueba.pptx")


' Determine the number of slides in the presentation.
slidecount = present.Slides.Count - 1 + FIRSTSLIDE

' Close the presentation. Use only 1 of the following lines
'Office 97 Syntax
'pptobj.Presentations
'("c:\powerpointprueba.pptx").Close
'Office 7.0 Syntax
present.Close
Set present = Nothing
Exit Sub

Mas adelante sustituire la url por una url guardada en la BD.
codigo utilizado completo en http://support.microsoft.com/kb/149088/es
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder