Discussion :

[dleclere]

Bonjour,

J'ai besoin de créer une macro sur draw pour changer les styles suivants :
Standard / Objet sans remplissage
Effets de caractères / couleur de police,
Police / Taille,
Ligne / Couleur
Ligne / Largeur

Je ne connais rien aux macros et j'aimerais une aide pour l'écriture de ce type de macro.
Soit en me dirigeant vers des exemples,
soit en m'indiquant ou je peux trouver des solutions.

Merci d'avance pour toute l'aide qui pourra m'être apportée.

Didier

le 04/11/2020
Bonjour,

J'ai bien avancé sur le sujet et maintenant je suis bloqué car je n'arrive pas à trouver les propriétés d'un style dans une famille.
Je m'explique :
j'ai trouvé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
lesFamilles  = monDocument.StyleFamilies
for f = 0 to lesFamilles.Count -1 ' chaque famille
  nomFam    = lesFamilles.ElementNames(f)
  REM  ==> à ce niveau, j'ai chaque famille de style (graphics, cell, table, Standard, .....)
  uneFamille = lesFamilles.getByName(nomFam)
  for x = 0 to uneFamille.Count -1 ' chaque style dans famille
    styleX = uneFamille(x)
    NomStyle = styleX.Name
    REM ==> à ce niveau, j'ai chaque style par famille (pour famille graphics : objectwithoutfill, Text,  A4 ...)
    REM Maintenant, ce que j'aimerais trouver c'est toutes les propriétés de chaque style, 
    REM je sais que pour graphics.objectwithoutfill j'ai FillColor, LineColor, mais je ne connais pas les autres.
  next x
next f

Est-ce possible de m'aider ???

Merci.

Didier

[dleclere]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
sub ChangeStyle ()
      Dim monDocument As Object 
      Dim lesFamilles As Object, uneFamille As Object
      Dim styleX As Object
      Dim styleY As Object
      monDocument = ThisComponent
      lesFamilles = monDocument.StyleFamilies
      uneFamille  = lesFamilles.getByName ("graphics")
      styleX      = uneFamille.getByName("objectwithoutfill")
      styleY      = uneFamille.getByName("standard")
      styleX.FillColor = RGB (255,0,0) ' rouge
      styleX.LineColor = RGB (255,0,0) ' rouge
      styleY.CharColor = RGB (255,0,0) ' rouge
      styleY.CharHeight          = 12
      styleX.LineWidth = 50
End Sub