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

Bonjour,

Le programme change bien le fichier de conf en Live, mais n'a pas 
d'effet sur le doc en cours, l'affichage des images est inchangé...

Une commande pour appliquer l'option ?

Merci

Le 20/10/2017 à 22:00, Stéphane Santon a écrit :
> ç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...
>
> > 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.
> > >
> > > 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