Vba sous Open Office

[gary29]

Hi

Je suis en train de dévellopper une macro vba sur Open Office. Je ne suis pas très famillier avec cette environnement de dévelloppement. Pour l'instant, je dévelloppe une macro qui m'ouvre des fichiers powerpoint sous open office.
Une fois ouvert, comment passer d'un slide à un autre?
Peut on interroger le nom du slide sélectionné (mes slides powerpoint sont nommé).
Comment peut on sélectionner un Shape sur un slide

Merci d'avance

 

[michel]

bonsoir Gary

si tu cherches des infos sur des documents Open Office je te conseilles ces deux liens tres interessants

http://fr.openoffice.org/contact-forums.html

http://www.oooforum.org/forum/viewforum.php?f=9


sinon ci-dessous quelques exemples d'actions sur un document PPT depuis Open Office

Sub ActionsSurPPT
'michel le 15.06.2004 testé avec Open Office 1.1.0 et WinXP
Dim Fichier As String
Dim oDoc As Object,Cible As Object,oShape As Object
'Dim i As Integer

Fichier = "C:\Documents and Settings\michel\dossier\general\excel\test.ppt" 'adapter le chemin
oDoc = StarDesktop.LoadComponentFromURL( ConvertToURL(Fichier), "_blank", 0, Array() )
Cible = oDoc.getCurrentController()

'****************************************************************
'demarrer la presentation plein ecran
'odoc.presentation.start

'******************************************************************
'boucler sur les slides pour les faire defiler ( mode onglets )
'for i=1 to oDoc.getDrawPages().getCount()
Cible.CurrentPage = oDoc.getDrawPages.getByIndex( i-1 )
'Wait 2000 'deux secondes
'next
'*********************************************************************
'boucler sur les slides pour afficher les noms de pages
'for i=1 to oDoc.getDrawPages().getCount()
'msgbox oDoc.DrawPages(i-1).getname ' nom du slide cible
'next

'*********************************************************************
'ouvrir le document sur la page 3 et afficher le nom du slide
Cible.CurrentPage = oDoc.getDrawPages.getByIndex( 2 )
msgbox oDoc.DrawPages(2).getname
'***************************************************************

'compter le nombre de shapes dans la page cible
msgbox "Nombre de shapes : " & oDoc.getDrawPages.getByIndex(2 ).getCount()

'*************************************************************

'boucler sur les shapes de la page 2 et afficher le texte saisi dans chaque zone
For i = 0 To oDoc.getDrawPages.getByIndex(2 ).getCount() - 1
oShape = oDoc.DrawPages(2).getByIndex(i )
MsgBox oShape.GetString()'afficher les textes saisis dans shapes de la page
next

End Sub



bonne soiree
MichelXld

 

[Gary29]

Thanks, ca a l'air good