Publisher 2003 Macro 01 Redimensionnement
wfw
Messages postés
20
Statut
Membre
-
Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention -
Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention -
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
A voir également:
- Publisher 2003 Macro 01 Redimensionnement
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Publisher gratuit - Télécharger - Outils professionnels
- Swift Publisher - Télécharger - Bureautique
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Office 2003 - Télécharger - Bureautique
1 réponse
Salut le forum
Pour redimmensionner la largeur à 21 cm de tous les photos des pages.
Mytå
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å
