IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
logo
Sommaire > VBA et Automation > Guides et Rèlges
        Comment supprimer tous les repères d'une page en VBA ?
        Comment supprimer tous les repères horizontaux en VBA ?
        Comment supprimer tous les repères verticaux en VBA ?
        Comment duppliquer les repères d'une page vers une autre ?
        Quelle est l'unité de mesure de la position des repères en VBA ?



Comment supprimer tous les repères d'une page en VBA ?
auteur : Christophe Warin
Pour supprimer par exemple tous les repères de la première page du document utilisez le code suivant :

With ActiveDocument.Pages(1).RulerGuides
    While .Count > 0
        .Item(1).Delete
    Wend
End With
La collection RulerGuides regroupe l'ensemble des repères de la page concernée. La méthode Delete appliqué à l'un d'entre eux permet de le supprimer.


Comment supprimer tous les repères horizontaux en VBA ?
auteur : Christophe Warin
Les repères sont horizontaux lorsque la propriété Type de l'objet RulerGuide correspondant est égale à pbRulerGuideTypeHorizontal.

L'exemple ci-dessous permet de supprimer tous les repères horizontaux de la page 1.

Dim i As Integer

With ActiveDocument.Pages(1).RulerGuides
    i = .Count
    While i > 0
        If .Item(i).Type = pbRulerGuideTypeHorizontal Then
            .Item(i).Delete
        End If
        i = i - 1
    Wend
End With
lien : faq Comment piloter Publisher depuis une autre application ?
lien : faq Comment supprimer tous les repères d'une page en VBA ?

Comment supprimer tous les repères verticaux en VBA ?
auteur : Christophe Warin
Les repères sont verticaux lorsque la propriété Type de l'objet RulerGuide correspondant est égale à pbRulerGuideTypeVertical.

L'exemple ci-dessous permet de supprimer tous les repères verticaux de la page 1.

Dim i As Integer

With ActiveDocument.Pages(1).RulerGuides
    i = .Count
    While i > 0
        If .Item(i).Type = pbRulerGuideTypeVertical Then
            .Item(i).Delete
        End If
        i = i - 1
    Wend
End With
lien : faq Comment piloter Publisher depuis une autre application ?
lien : faq Comment supprimer tous les repères d'une page en VBA ?

Comment duppliquer les repères d'une page vers une autre ?
auteur : Christophe Warin
L'exemple suivant dupplique les repères de la page 1 vers la page 2.

Dim oPageSource As Publisher.Page
Dim oPageDestination As Publisher.Page
Dim oGuide As Publisher.RulerGuide

Set oPageSource = ActiveDocument.Pages(1)
Set oPageDestination = ActiveDocument.Pages(2)
For Each oGuide In oPageSource.RulerGuides
    oPageDestination.RulerGuides.Add oGuide.Position, oGuide.Type
Next oGuide
Ajoutez un test sur oGuide.Type si vous souhaitez traiter uniquement les guides verticaux ou horizontaux.

lien : faq Comment piloter Publisher depuis une autre application ?

Quelle est l'unité de mesure de la position des repères en VBA ?
auteur : Christophe Warin
En VBA, les positions des repères sont définies en Points. Sachant qu'il y a 567 Twips dans un centimètre et qu'un Twip correspont à un vingtième de Point, il faut appliquer la convertion suivante :

Dim oPageSource As Publisher.Page
Dim oGuide As Publisher.RulerGuide
Dim h As Double

Set oPageSource = ActiveDocument.Pages(1)
Set oGuide = oPageSource.RulerGuides.Item(1)
h = oGuide.Position / 567 * 20
MsgBox "Le guide est à " & h & " cm du bord de la page"
lien : faq Comment piloter Publisher depuis une autre application ?


Consultez les autres F.A.Q's


Valid XHTML 1.0 TransitionalValid CSS!

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2009 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site ni de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.