FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub BoucleObjetsPresentation 
  Dim Fichier As String 
  Dim Array() As Variant 
  Dim oDoc As Object , oPage As Object 
  Dim i As Integer , j As Integer 
  
  Fichier = "C:\Documents and Settings\mimi\dossier\maPresentation.odp" 
  Fichier = ConvertToURL(Fichier) 
  
  'Ouvre la présentation 
  oDoc = StarDesktop.LoadComponentFromURL( Fichier , "_blank", 0, Array() )  
  
  'Boucle sur les slides 
  For i = 0 To oDoc.getDrawPages().getCount() - 1 
  
    oPage = oDoc.getDrawPages.getByIndex(i) 
  
    'Affiche le nom de la page et compte le nombre de Shapes qu'elle contient 
    MsgBox oPage.getCount() & " shape(s)" & _ 
      " dans la page nommée '" & oPage.getName & "'" 
  
    'Boucle sur les objets de la page 
    For j = 0 To oPage.getCount() - 1  
      oShape = oPage.getByIndex(j) 
      MsgBox "Dimensions " & oShape.getSize.Width & " x " & oShape.getSize.Height 
    Next j 
  
  Next i 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub DemarrerPresentation 
  Dim Fichier As String 
  Dim Array() As Variant 
  Dim oDoc As Object 
  
  Fichier = "C:\Documents and Settings\mimi\dossier\maPresentation.odp" 
  Fichier = ConvertToURL(Fichier) 
  'Ouvre la présentation 
  oDoc = StarDesktop.LoadComponentFromURL( Fichier , "_blank", 0, Array() )  
  
  'Démarre la présentation en mode plein ecran 
  oDoc.Presentation.Start 
End Sub

ThisComponent.DrawPages(2).Visible = False

ThisComponent.DrawPages(2).Visible = True

1
2
3
4
5
6
7
8
Sub DupliqueSlideImpress 
  Dim oDoc As Object 
  
  oDoc = ThisComponent 
  'Duplique la 3eme page dans le même fichier 
  oDoc.Duplicate(oDoc.DrawPages(2)) 	 
  
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub CreerPresentation 
  Dim oDoc As Object , oPage As Object 
  Dim Arg() As Variant 
  
  'Création présentation  
  oDoc = StarDesktop.loadComponentFromURL( "private:factory/simpress", "_blank", 0, Arg() )  
  
  '--- 
  'Spécifie la première page (qui est automatiquement créée en même 
  'temps que la nouvelle présentation).   
  oPage = oDoc.DrawPages.getByIndex(0)  
  'Renomme la page 
  oPage.Name = "DVP 1" 
  
  AjoutImage ( oDoc , oPage , "http://www.developpez.com/template/logo.gif" , _ 
  		6500 , 3500 , 500 , 500 ) 
  
  AjoutTexte ( oDoc , oPage , "Bienvenue à vous !" , _ 
  		14000 , 2500 , 7000 , 6000 , RGB(235,235,180)  )  
  '--- 
  
  '--- Ajoute une deuxième page --- 
  oPage = oDoc.DrawPages.insertNewByIndex(1) '(1) correspond à l'index de la 2eme page 
  oPage.Name = "DVP 2" 
  
  AjoutImage ( oDoc , oPage , "http://www.developpez.com/template/logo.gif" ,  _ 
  		6500 , 3500 , 500 , 500 ) 
  
  AjoutTexte ( oDoc , oPage , "J'espère que cet exemple vous aura aidé..." , _ 
  		14000 , 3000 , 7000 , 6000 , RGB(235,235,180) ) 
  
  '--- 
  
  'Démarre la présentation en mode plein écran 
  oDoc.Presentation.Start 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function AjoutImage( oCmp As Object , oPge As Object , Fichier As String , Largeur As Long , _ 
	Hauteur As Long , Verti As Long , Horiz As Long ) 
  
  Dim oImage As Object 
  Dim oSize As New com.sun.star.awt.Size  
  Dim oPos As New com.sun.star.awt.Point 
  
  '--- Insère une image, la redimensionne et la positionne et la page --- 
  '(Cet exemple nécessite d'être connecté à internet pour récupérer l'image) 
  oImage = oCmp.createInstance("com.sun.star.drawing.GraphicObjectShape")  
  oImage.GraphicURL = ConvertToURL(Fichier)  
  'Ajoute l'image 
  oPge.Add(oImage) 
  
  'Définit la taille 
  oSize.Width  = Largeur  
  oSize.Height = Hauteur 
  oImage.Size = oSize 
  
  'Définit la Position 
  oPos.x  = Horiz 
  oPos.y = Verti 
  oImage.Position = oPos 
End Function

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Function AjoutTexte( oCmp As Object , oPge As Object , leTexte As String , Largeur As Long , _ 
	Hauteur As Long , Verti As Long , Horiz As Long , Couleur As Long) 
  
  Dim oShape As Object 
  Dim oSize As New com.sun.star.awt.Size  
  Dim oPos As New com.sun.star.awt.Point 
  
  '--- insère une zone de texte , la redimensionne et la positionne et la page --- 
  oShape = oCmp.createInstance("com.sun.star.drawing.TextShape")  
  
  'Définit la taille 
  oSize.Width  = Largeur  
  oSize.Height = Hauteur 
  oShape.Size = oSize 
  
  'Définit la Position 
  oPos.x  = Horiz 
  oPos.y = Verti 
  oShape.Position = oPos 
  
  'Définit la couleur de fond pour la zone de texte   
  oShape.FillStyle = com.sun.star.drawing.FillStyle.SOLID  
  oShape.FillColor = Couleur  
  
  'Ajoute la zone de texte 
  oPge.Add(oShape) 
  
  'insère le texte 
  oShape.getText().setString( leTexte ) 
  oShape.getText().CharHeight = 40 'taille caractères 
End Function