[WD-2007] Impression ou non d'un objet graphique

[gbdos]

Bonjour,

J'ai un document Word avec des objets graphiques (rectangles, flèches, losange, étoiles...).
Je souhaiterais que les étoiles apparaissent à l'écran, mais pas à l'impression.
Si je désactive l'impression des objets dans les options, aucun objet ne s'imprime.

Avez-vous une solution pour que mes rectangles et autres s'impriment et pas les étoiles?

Par avance, merci.

[Sepia]

Salut gbdos,

Si tu avais eu des caractères étoiles, on aurait pu utiliser un style masqué ou non. Là la solution la plus simple serait d'avoir une image blanche sans bord en arrière-plan de tes étoiles que tu ferais passer en avant-plan avec un bouton donc qui cacherait tes étoiles avant d'imprimer, puis que tu ferais repasser derrière après l'impression.

Cette solution (assez proche de la ruse de sioux) convient-elle ? Si oui, on peut avancer sur la macro qui te ferait basculer les caches d'arrière-plan en avant-plan et vice-versa.

@+

[gbdos]

Bonjour,

Cette solution (même un peu sioux ) m'irait très bien.
Ca me permettrait d'avancer sur mes documents.

[Sepia]

Salut gbdos,

Le code est compliqué mais voilà la base pour ajouter le rectangle qui va masquer un élément

Code :

1
2
 
    ActiveDocument.Shapes.AddShape(msoShapeRectangle, 67.8, 94.2, 118.2, 58.8).Select

Voilà le code pour mettre en arrière-plan le rectangle. Il faut d'abord le sélectionner

Code :

1
2
 
    ActiveDocument.Shapes(<nomDuRectangle>).Select

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Rotation = 0#
    Selection.ShapeRange.Left = 67.7
    Selection.ShapeRange.Top = 94.1
    Selection.ShapeRange.RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn
    Selection.ShapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
    Selection.ShapeRange.RelativeHorizontalSize = wdRelativeHorizontalSizePage
    Selection.ShapeRange.RelativeVerticalSize = wdRelativeVerticalSizePage
    Selection.ShapeRange.Left = CentimetersToPoints(-0.11)
    Selection.ShapeRange.LeftRelative = wdShapePositionRelativeNone
    Selection.ShapeRange.Top = CentimetersToPoints(0.82)
    Selection.ShapeRange.TopRelative = wdShapePositionRelativeNone
    Selection.ShapeRange.WidthRelative = wdShapeSizeRelativeNone
    Selection.ShapeRange.HeightRelative = wdShapeSizeRelativeNone
    Selection.ShapeRange.LockAnchor = False
    Selection.ShapeRange.LayoutInCell = True
    Selection.ShapeRange.WrapFormat.AllowOverlap = True
    Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
    Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
    Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
    Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
    Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
    Selection.ShapeRange.WrapFormat.Type = 3
    Selection.ShapeRange.ZOrder 5

Maintenant il faut distinguer tes étoiles des autres formes. Pour cela on peut utiliser un style de caractères (ou de paragraphe), on le sélectionne, puis on travaille sur la forme concernée

Une dernière remarque : les formes de base doivent être inclus dans le texte ("habillage de texte" = "Aligné sur le texte")

@+