Bonjour,

Le 05/10/2017 à 21:49, demande_aide...@libreoffice.org a écrit :
Question:: Dans Writer,Je voudrais, à travers la macro ci-dessous, changer la 
couleur de mes formules mathématiques  (textes à trou en blanc ou bleu)
Voici la macro que j'ai faite... elle marche très bien pour mon texte avec le style 
"eleve" mais pas pour la couleur du texte de mes formules qui ont le style 
"eleveF"... la variable charColor n'est pas reconnu... savez vous le nom de la variable 
qui gère la couleur des textes dans un cadre ?
Merci

Avant d'aller plus loin...


Sub Eleve
dim trou1  as object
dim trou2 as object
        
trou1=thiscomponent.GetStyleFamilies.GetByName("CharacterStyles").GetByName("eleves")
        
trou2=thiscomponent.GetStyleFamilies.GetByName("FrameStyles").GetByName("eleveF")
        With trou1
                If .charColor=128 Then
                        .charColor=&hFFFFFF
                Else
                        .charColor=128
                End If
        End With
        
        With trou2
                If .CharColor=128 Then
                        .CharColor=&hFFFFFF
                Else

Il n'y aurait pas un pb là ?

                       vv
                        CharColor=128

je ne vois pas le point de ".charColor"
Du coup CharColor devient l'identificateur d'une variable inconnue.

                End If
        End With
        
End Sub




Si vous répondez, merci de penser à utiliser la fonction "répondre à tous" de votre logiciel de courrier électronique de façon que la liste reçoive une copie de votre réponse.

Bien cordialement,
--
Jean-Francois Nifenecker, Bordeaux


--
Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à 
http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne 
pourront pas être supprimés

Répondre à