Publisher 2003 Macro 01 Redimensionnement

Fermé
wfw Messages postés 16 Date d'inscription samedi 15 mai 2010 Statut Membre Dernière intervention 10 décembre 2010 - 4 juil. 2010 à 14:35
Mytå Messages postés 2969 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 - 5 juil. 2010 à 00:10
Bonjour,

Afin de préparer des dossiers à envoyer dans une administration, je numérise les documents avec mon scan. Le problème est que quand j'insère l'image sous publisher 2003 la taille pour une feuille A4 est de 21,590 sur 29,718. J'aimerais savoir comment créer la macro qui appliquerait les points suivants sur l'objet sélectionné:

- mettre la largeur à 21 cm et réduire la hauteur de manière proportionnelle,
- centrer et aligner au milieu.

MERCI

A voir également:

1 réponse

Mytå Messages postés 2969 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 929
5 juil. 2010 à 00:10
Salut le forum

Pour redimmensionner la largeur à 21 cm de tous les photos des pages.

Sub UpdateImage()
Dim pbPage As Page
Dim pbShape As Shape

For Each pbPage In ActiveDocument.Pages
  For Each pbShape In pbPage.Shapes
    If pbShape.Type = 13 Then
      pbShape.Width = "21 cm"
    End If
  Next pbShape
Next pbPage
           
End Sub

Mytå
0