Bonjour François

SEGUIN François escribió:

Vous pouvez manipuler les options du menu "Outils" - "Options" - "OpenOffice.org Draw" - "Grille", si vous accédez à la branche de configuration "/org.openoffice.Office.Draw"

L'arbre pour cet noeud de configuration est:

Content Display ContourMode = False LineContour = False PicturePlaceholder = False TextPlaceholder = False Grid Option SnapToGrid = True Synchronize = False VisibleGrid = False Resolution XAxis Metric = 1000 NonMetric = 1270 YAxis Metric = 1000 NonMetric = 1270 SnapGrid Size = True XAxis Metric = 1000 NonMetric = 1270 YAxis Metric = 1000 NonMetric = 1270 Subdivision XAxis = 1 YAxis = 1 Layout Display Bezier = False Contour = True Guide = True Helpline = True Ruler = True Other MeasureUnit Metric = 2 NonMetric = 8 TabStop Metric = 1250 NonMetric = 1270 Misc BackgroundCache = True BigHandles = False CopyWhileMoving = False CreateWithAttributes = False DclickTextedit = True NoDistort = False ObjectMoveable = True Preview = 0 RotateClick = False SimpleHandles = True Compatibility PrinterIndependentLayout = 2 CrossFading Attributes = True Orientation = True Steps = 16 DefaultObjectSize Height = 5000 Width = 8000 TextObject QuickEditing = False Selectable = True Print Content Drawing = True Other Date = False FromPrinterSetup = False HiddenPage = True PageName = False Quality = 0 Time = False Page Booklet = False BookletBack = True BookletFront = True PageSize = False PageTile = False Snap Object Grid = False ObjectFrame = True ObjectPoint = True PageMargin = True Range = 5 SnapLine = True Position CreatingMoving = False ExtendEdges = True PointReduction = 1500 Rotating = False RotatingValue = 1500 Zoom ScaleX = 1 ScaleY = 1

Pour manipuler la grille, utilisez "/org.openoffice.Office.Draw/Grid".

Exemple:

Sub DRAW_GRID_CONFIG

Dim oDrawGridConfig as Object oDrawGridConfig = getConfigurationAccess(_ "/org.openoffice.Office.Draw/Grid", true )

If NOT IsNull(oDrawGridConfig) Then Dim bIsVisibleGrid as Boolean bIsVisibleGrid = oDrawGridConfig.getHierarchicalPropertyValue(_ "Option/VisibleGrid") oDrawGridConfig.setHierarchicalPropertyValue(_ "Option/VisibleGrid", NOT bIsVisibleGrid)

oDrawGridConfig.setHierarchicalPropertyValue(_ "Resolution/XAxis/Metric", 500) oDrawGridConfig.setHierarchicalPropertyValue(_ "Resolution/YAxis/Metric", 500)

'DO NOT forget to commit the changes! oDrawGridConfig.commitChanges()

'BUT unfortunately, this will have NO effect until you close OOo 'and the QuickStarter 'NOT very useful!

'Close OOo and the QuickStarter. 'Start OOo once again, open a NEW Draw document. 'You will see that the the grid is in the opposite state as before 'and the resolution of the grid is 0,50 cm, instead of the default 1,00 cm End If End Sub

Function getConfigurationAccess( sNodePath$, bUpdate as Boolean, Optional aLocale$)

REM Param. aLocale is STRING, NOT com.sun.star.lang.Locale ' for example. "es", "es-AR" ' "*" for ALL locales

On Error GoTo getConfigurationAccessErrorHandler

Dim sConfigurationProvider$, oConfigurationProvider as Object Dim sConfigurationAccess$, sConfigurationUpdateAccess$, sConfiguration$ Dim oConfigurationAccess as Object

sConfigurationProvider = "com.sun.star.configuration.ConfigurationProvider" oConfigurationProvider = createUNOService(sConfigurationProvider)

Dim oParametros(0) As New com.sun.star.beans.PropertyValue oParametros(0).Name = "nodepath" oParametros(0).Value = sNodePath

sConfigurationAccess = "com.sun.star.configuration.ConfigurationAccess" sConfigurationUpdateAccess = "com.sun.star.configuration.ConfigurationUpdateAccess"

if bUpdate then ReDim Preserve oParametros(1) oParametros(1).Name = "EnableAsync" oParametros(1).Value = FALSE sConfiguration = sConfigurationUpdateAccess else sConfiguration = sConfigurationAccess end if

if NOT IsMissing(aLocale) then Dim n% n = UBound(oParametros)+1 ReDim Preserve oParametros(n) oParametros(n).Name = "Locale" oParametros(n).Value = aLocale end if

oConfigurationAccess = oConfigurationProvider.createInstanceWithArguments(_ sConfiguration, oParametros())

getConfigurationAccessCleanUp: getConfigurationAccess() = oConfigurationAccess Exit Function getConfigurationAccessErrorHandler: Resume getConfigurationAccessCleanUp End Function

A bientôt Ariel

http://www.arielconstenlahaile.com.ar/ooo/