Re: [fr-users] [BASIC] Modifier les options de Writer

Ah oui...
j'avais pas vu que c'était le nom du nœud de la propriété...
ça donne donc :

sub ConfigSetting_afficherImages( afficherImages)

    '<item oor:path="/org.openoffice.Office.Common/Misc"><prop 
oor:name="SymbolSet" oor:op="fuse"><value>0</value></prop></item>
        Dim conf as Variant
    conf = 
getConfigSetting("/org.openoffice.Office.Writer/Content/Display" ,true) 
'/org.openoffice.Office.Common/Misc
    conf.GraphicObject = afficherImages 'SymbolSet
    conf.commitChanges()
end sub

Aucune erreur d'exécution mais option non opérationnelle...

Je chercherai encore !

Merci

Le 20/10/2017 à 21:38, Stéphane Santon a écrit :
> Bonjour,
>
> J'ai repéré la modification dans le fichier
> C:\Users\utilisateur\AppData\Roaming\LibreOffice\4\user\registrymodifications.xcu
>
>
> sur la clé
> <item oor:path="/org.openoffice.Office.Writer/Content/Display">
>   <prop oor:name="GraphicObject" oor:op="fuse">
>     <value>true</value>
>   </prop>
> </item>
>
> A l'exécution, j'ai une erreur
> "Erreur d'exécution BASIC.
> Propriété ou méthode non trouvée : SymbolSet."
>
> sur
> conf.SymbolSet = 0
>
> Qu'ai-je oublié ?
>
> LibreOffice 5.2.6.2
>
> Merci
>
>
> Le 20/10/2017 à 11:04, Laurent Godard a écrit :
> > > Pour exécuter une macro qui importe environ 200 images, j'aimerais
> > > désactiver l'option d'affichage des images dans Writer, au début de la
> > > macro, et la réactiver à la fin.
> >
> > oui c'est possible si c'est une configuation accessinble dans le tree
> > des configurations, mais ce demande un peu de 'travail'
> > deja identifier le fichier et la propriété dans la conf .xcu de
> > libreoffice
> > (par exemple en modifiant ta propriéete et en regardant ensuite quel
> > fichier et noeuds ont changé)
> >
> > ensuite
> >
> > exemple sur la taille des icones
> > sub ConfigSetting_tailleIcones()
> >
> >     '<item oor:path="/org.openoffice.Office.Common/Misc"><prop
> > oor:name="SymbolSet" oor:op="fuse"><value>0</value></prop></item>
> >
> >     conf = getConfigSetting("/org.openoffice.Office.Common/Misc" ,true)
> >     conf.SymbolSet = 0 'petit
> >     conf.commitChanges()
> >
> > end sub
> >
> >
> > function getConfigSetting(target as string, forUpdate as boolean)
> > ' retourne le noeud de config demandé
> > ' exemple: aSettings = getConfigSetting(
> > "/org.openoffice.Office.Common/Path/Current", false)
> >
> >     dim service as String ' nom du service d'acces à la configuration
> >     dim aSettings, aConfigProvider
> >     dim aParams(0) As new com.sun.star.beans.PropertyValue
> >     dim varEmpty
> >
> >     if forUpdate then
> >         service = "com.sun.star.configuration.ConfigurationUpdateAccess"
> >     else
> >         service = "com.sun.star.configuration.ConfigurationAccess"
> >     endif
> >
> >     aConfigProvider = createUnoService(
> > "com.sun.star.configuration.ConfigurationProvider" )
> >     aParams(0).Name = "nodepath"
> >     aParams(0).Value = target
> >
> >     aSettings = aConfigProvider.createInstanceWithArguments(service,
> > aParams() )
> >
> >     getConfigSetting = aSettings
> >
> > end function
> >
> > HTH
> >
> > laurent


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