lorsque je colle une image venant d'internet dans mon texte, je souhaite en supprimer les bordures.
J'ai la possibilité de faire ça à la mano avec clic droit>propriétés onglet "bordures" et en cliquant sur l’icône sans bordure de la zone "préréglages".
Mais, si j'ai inséré plusieurs images, je préférerais laisser ma paresse s'exprimer librement et lancer une macro qui fasse le boulot à ma place...
J'ai essayé dans un premier temps d'accéder aux propriétés de bordure qui apparaissent pour les objets graphiques dans Xray 6.0
J'ai voulu accéder à ces propriétés de la même façon que les propriétés de positionnement en précisant comme valeur NONE mais ça ne fonctionne pas :
affichage de l'EDI basic avec le message d'erreur : "Erreur d'exécution BASIC. Variable d'objet non définie"
J'ai alors essayé d'affecter une valeur de couleur = 0 mais ça ne fonctionne pas non plus...(aucun message d'erreur)
Est-ce que l'un ou l'une d'entre vous pourrais m'aiguiller sur une piste svp ?
Code : Tout sélectionner
Sub traitementGraphiques
Dim oDoc as object
Dim graphics as object
Dim graphic as object
Dim j as integer
oDoc = ThisComponent
graphics = oDoc.getGraphicObjects()
For j=0 to graphics.count-1
graphic=graphics(j)
With graphic
'.TopBorder = NONE
.TopBorder.Color = 0
'.RightBorder = NONE
.RightBorder.Color = 0
'.BottomBorder = NONE
.BottomBorder.Color = 0
'.LeftBorder = NONE
.LeftBorder.Color = 0
End With
Next j
End Sub