Satanée macro !

Bonjour,

Le modèle "diplôme" existait d'ailleurs sous Word 97....

Sais pas s'il a été continué dans les autres versions....

Serge

"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news: uTcvVzmLGHA.2668@tk2msftngp13.phx.gbl...

Bonjour,

Pour rester en relativement bon(s) terme(s) (pas envie de chercher si
c'est singulier ou pluriel) avec les AMIS.

Faire un modèle diplome.dot, avec le cadre d'image et la zone de texte à
la bonne taille

Ensuite créer un nouveau document au besoin, à partir du modèle.

Insérer la nouvelle image et le bon texte.


"VarioFlux" <varioflux@gmail.com> a écrit dans le message de news:
mn.54657d624e398f20.13312@gmail.com...

Bonjour,

J'ai un doc que je modifie souvent, c'est à dire que j'insère
systématiquement une photo (toujours différente), un nom et une date...
Je modifie la taille de la photo en la sélectionnant, puis click
droit/format de l'image, ensuite onglet "taille" je la ramène à 55 %,
ensuite onglet "habillage" je sélectionne "derrière le texte" puis
avancé, puis je modifie son emplacement dans la page, je décoche
"déplacer avec le texte" et je coche "ancrer", puis "ok" 2 fois !
Ensuite je change un nom et une date dans une zone texte...

J'ai cherché à en faire une macro, je n'ai jamais trouvé !
C'est possible à faire ?
Passke c'est gonflant de refaire systématique cette même manip : c'est
pour des diplômes que je remet à mes clients donc je le fait plusieurs
centaines de fois par an !

--
VarioFlux
http://www.educador.fr
http://www.dressage-chien.com
Centre d'éducation canine sur la Côte d'Azur

Imagine que VarioFlux doive répéter cette manip sur des centaines
de documents DÉJÀ EXISTANTS hein z'avez bonne mine de lui dire
maintenant qu'il aurait dû s'y prendre autrement et sans macro
superfétatoire ! :-))

Anacoluthe
« Écrire est le dernier des métiers manuels... »
- Michel SERRES

Ouais, ben, il a jamais dit ça VarioFlux... Je crois bien que là, va
falloir rendre votre carte d'AMIS... périmée à tout jamais !!! :D

Oui c'est très possible et sans problème
... mais pas avec l'enregistreur de macro !!
Si macro il y a, il vous faut l' /écrire/ cette macro
Pourquoi ?
Parce que vous changez d'objet graphique en cours de macro !
Vous passez d'une InlineShape (image alignée in-texte) à
une Shape (image hors-texte). L'enregistreur n'est pas capable
d'enregistrer ce tour de passe-passe de l'habillage. Mais
vous pouvez le programmer sans peine avec la méthode ConvertToShape.
La suite est plus simple.

Il se trouve que Anacoluthe a formulé :

Oui c'est très possible et sans problème
... mais pas avec l'enregistreur de macro !!
Si macro il y a, il vous faut l' /écrire/ cette macro
Pourquoi ?
Parce que vous changez d'objet graphique en cours de macro !
Vous passez d'une InlineShape (image alignée in-texte) à
une Shape (image hors-texte). L'enregistreur n'est pas capable
d'enregistrer ce tour de passe-passe de l'habillage. Mais
vous pouvez le programmer sans peine avec la méthode
ConvertToShape.
La suite est plus simple.

Bonjour et merci,

Bon, j'ai bien compris d'éviter d'utiliser la souris mais plutôt le
clavier... Donc pour redimensionner la photo à 55%, ça roule...

mais la suite me parait plus obscure : dès que je lance
l'enregistreur de macros, comme par hasard, la rubrique habillage du
menu format de l'image devient innaccessible... Comment contourner ?
J'ai cheché "ConvertToShape" dans l'aide WOrd, mais rien n'y fait...

Au fait : Office Word 2003 SP2
:-)

Bonjour,

Pourquoi ne veux-tu pas utiliser la solution de Clément sans macro,
beaucoup plus simple...

La macro est totalement inutile !!

Circé

VarioFlux avait soumis l'idée :

Il se trouve que Anacoluthe a formulé :

Oui c'est très possible et sans problème
... mais pas avec l'enregistreur de macro !!
Si macro il y a, il vous faut l' /écrire/ cette macro
Pourquoi ?
Parce que vous changez d'objet graphique en cours de macro !
Vous passez d'une InlineShape (image alignée in-texte) à
une Shape (image hors-texte). L'enregistreur n'est pas capable
d'enregistrer ce tour de passe-passe de l'habillage. Mais
vous pouvez le programmer sans peine avec la méthode ConvertToShape.
La suite est plus simple.

Bonjour et merci,

Bon, j'ai bien compris d'éviter d'utiliser la souris mais plutôt le
clavier... Donc pour redimensionner la photo à 55%, ça roule...

mais la suite me parait plus obscure : dès que je lance l'enregistreur de
macros, comme par hasard, la rubrique habillage du menu format de l'image
devient innaccessible... Comment contourner ? J'ai cheché
"ConvertToShape" dans l'aide WOrd, mais rien n'y fait...

Au fait : Office Word 2003 SP2
:-)

On t'a explqiué que le modèle de document serait plus simple, mais puis que
tu persistes :

Dim s As Shape
Dim i As InlineShape

Set i = Selection.InlineShapes.AddPicture(FileName:= etc )
i.LockAspectRatio = msoTrue
i.ScaleHeight = 55
i.ScaleWidth = 55
Set s = i.ConvertToShape

With s
.RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn
.RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
.Left = CentimetersToPoints(xxx)
.Top = CentimetersToPoints(xxxxx)
End With

Ca devrait suffire, mais j'ai gardé tous les autres paramètres générés par
l'enregistreur de macros, on ne sait jamais et ça justifie les heures que
j'ai passées à trouver ça.

Dim s As Shape
Dim i As InlineShape

Set i = Selection.InlineShapes.AddPicture(FileName:= etc )

i.LockAspectRatio = msoTrue
i.ScaleHeight = 55
i.ScaleWidth = 55

Set s = i.ConvertToShape

With s
.RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn
.RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
.Left = CentimetersToPoints(xxx)
.Top = CentimetersToPoints(xxxxx)
End With

je pige rien, sois c'est incomplet, sois je suis neuneu, ce qui est
possible, après tout ! mdr