Publisher 2003 Macro 01 Redimensionnement
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
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
1 réponse
-
ContributeurSalut 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å
