Provider:
jnavrati
Maintainer:
jnavrati
Rating:
3.444445
Average: 3.4 (9 votes)
Application:
Impress
Tags:
impress, presentation
Source code:
http://people.redhat.com/jnavrati/PhotoAlbum0.4.zip
Post date:
Tuesday, 13 November, 2007 - 04:40
Statistics
Week: 164 - Month: 604 - Year: 8,717 - Timeline
Download extension
System Independent version - All releases
Compatible with OpenOffice 4: Unknown
User feedback:
Compatible with OpenOffice 4.x?

Create with Photo Album, using just four clicks, a slideshow from a folder of pictures with random fades automatically applied between slides, and the slideshow set to loop continuously.
This Photo Album extension is based on the original Photo Album Creator by Russ Phillips, modified to be suitable as an extension among other improvements.
How to install: in menu Tools->Extension Manager just add the whole unpacked zip archive and then you should see a new menu-item in Tools->Add-Ons->Create Photo Album.

PhotoAlbum

Version Operating system Compatibility Release date
0.4.0 System Independent 3.4 13/11/2007 - 05:27 More information Download

Comments

Why to set online a zip file? Newbies users are lost to install it.

This macro language doesn't look much like the BASIC I learned in 1974, but the patch below seems to work OK. It should be applied to modPhotoAlbum.xba. (It's not efficient; someone with a better grasp of this pseudo-BASIC language could do much better by using quicksort or some other algorithm.)

Hmmm... turns out that this brilliant "forum" software mangles patches. I don't know how to get around that....

----

61,65c61,67
---
>
> ' N7DR simple sort to put photos in filename order
>
> dim iFiles as integer
> iFiles = 0
> sFile = dir(sDir)
> While Not (sFile = "")
67,79c69,72
---
> iFiles = iFiles + 1
> end if
> sFile = dir
> Wend
81,84c74,82
---
> dim sFileNames(iFiles) as string
>
> iFiles = 0
> sFile = dir(sDir)
> While Not (sFile = "")
> if rppIsGraphicFile (sFile) then
> iFiles = iFiles + 1
> sFileNames(iFiles) = sFile
> end if
87c85,131
---
>
> dim sSortedFileNames(iFiles) as string
>
> dim iLoop1 as integer
> dim iLoop2 as integer
>
> dim sName as string
> dim iIndex as integer
>
> sName = ""
> iIndex = 1
>
> for iLoop1 = 1 to iFiles
> sName = "}"
> iIndex = 1
> for iLoop2 = 1 to iFiles
> if Not (sFilenames(iLoop2) = "") then
> if (sFileNames(iLoop2) < sName) then
> sName = sFileNames(iLoop2)
> iIndex = iLoop2
> end if
> end if
> next iLoop2
>
> sSortedFileNames(iLoop1) = sName
> sFileNames(iIndex) = ""
> next iLoop1
>
> for iIndex = 1 to iFiles
> sFile = sSortedFileNames(iIndex)
>
> 'Add a slide for this graphic
> oSlides.InsertNewByIndex (oSlides.Count)
>
> 'Set page changing properties included fade effect
> oDrawPage = oSlides.getByIndex (oSlides.Count -1)
> oDrawPage.Effect = oEffect
> oDrawPage.Speed = oSpeed
> oDrawPage.Change = iChange
> oDrawPage.Duration = iDuration
> 'Add graphic to slide
> AddGraphic (oAlbum, ConvertToURL (sDir & sFile), oDrawPage)
>
> 'Name slide with file name
> oSlides (oSlides.Count - 1).Name = sFile
> next iIndex
>

I tried a directory containing files with the names:

0000.jpg
0001.jpg
...
0009.jpg

And these also were added in random order.

This is with OOo 3.2, 64-bit Linux (Kubuntu lucid).

I can't even guess at a workaround for this. Apparently other people haven't had this problem; I have no idea why not. This is completely reproducible here.

I just tried this extension, using a test directory containing 10 files with names of the form:

cqwwssb2008-081025.nnnn.jpg

It created a slideshow, but the files are in a random order.

I also tried 10 files with names of the form:

cqwwssb2008-081025-nnnn.jpg

in case the extra full stop in the file names was not being handled properly, but the slides are still imported in random order.

I was hoping so much to be able to craete a slideshow with this tool (I have several hundred images in a non-test directory), but it seems that this tool isn't going to do the job :-(

Provision should be made to view files to be inserted and sort them according to other than the filename... ala Windows Explorer. Otherwise, GREAT IDEA!

Permite inserir imagens, muito rapidamente em apresentações

Jacinto Leal