Warning message

This extension was not updated recently. It might not work with latest versions of OpenOffice.

Primary tabs


Average: 3.4 (9 votes)

impress, presentation
Source code:
Post date:
Tuesday, 13 November, 2007 - 04:40
Week: Not tracked - Month: Not tracked - Year: Not tracked
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.


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


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....


> ' N7DR simple sort to put photos in filename order
> dim iFiles as integer
> iFiles = 0
> sFile = dir(sDir)
> While Not (sFile = "")
> iFiles = iFiles + 1
> end if
> sFile = dir
> Wend
> 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
> 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:


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:


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

I also tried 10 files with names of the form:


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