Réponse - Informaticien.be

Poster une réponse à un sujet: Manipulation d'image dans une macro Word par VBA

Attention, ce sujet est un sujet ancien (6539 jours sans réponse)

forum_emoticons.html

Courriel [email=nobody@nobody.org]Nom[/email]

Lien [url=http://www.website.com]Texte[/url]

Image [img]http://www.website.com/image.jpg[/img]

Aligné à gauche [align=left]Texte[/align]

Aligné à droite [align=right]Texte[/align]

Toute la largeur [align=justify]Texte[/text]

Mise en forme [highlight=pascal]Texte[/highlight]

Liste [list=square][item]BlaBla[/item][/list]

Liste Numérotée [list=decimal][item]BlaBla[/item][/list]

Spoiler [spoiler]James est le meurtrier![/spoiler]

Tout en majuscules [uppercase]Texte[/uppercase]

Tout en minuscules [lowercase]Texte[/lowercase]

etik

Oups, j'avais oublie de poster le lien

Clandestino

MAGNIFIQUE !!!!! Un tout grand merci, etik.

Pourrais-je juste te demander si tu te souviens du site où tu l'as trouvé ?

etik

Trouve ca sur google, peut-etre te donner une piste ???

Code:

Sub Insert_Pic()
' declare an InlineShape object variable
Dim MyShape As Shape
' store the pointer to the new shape
Set MyShape = ActiveDocument.Shapes.AddPicture(FileName:="C:\MySignature.bmp", LinkToFile:=False, SaveWithDocument:=True, Anchor:=Selection.Range)
' set properties of the Shape object
With MyShape
.Width = 160
.Height = 49
.ZOrder msoSendBehindText
.WrapFormat.Type = wdWrapNone
.RelativeHorizontalPosition = wdRelativeHorizontalPositionCharacter
.RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
.Left = 0
.Top = InchesToPoints(0.02)
End With
End Sub

tuloravoulu

Citation de: Clandestino

Y'a vraiment personne qui sait ou tout le monde s'en fout ?

Je ne réponds jamais quand je ne sais pas parce que je pourrais faire des copiés-collés de " :dawaspamafote:

kesketuveukjtedisemoi" ou à la rigueur dire des conneries mais là , certaines personnes pourraient y croire. Non , je ne donnerais pas de noms ! :petrus:

.
.
.
.
.
.
.
N'insiste pas !!! :tinostar:

ovh

Citation de: Clandestino

Y'a vraiment personne qui sait ou tout le monde s'en fout ?

T'énerve pas, ça ne fait que 2h que tu as posté ta question...

Moi perso j'ai quasi jamais touché au VBA, et jamais en tout cas pour les images, franchement je sais pas t'aider là comme ça :spamafote:

zion

Perso je sais pas :petrus:

JC saura peut être :spamafote:

Clandestino

Y'a vraiment personne qui sait ou tout le monde s'en fout ?

Clandestino

Bonjour tout le monde,

Dans le cadre d'un petit projet que je réalise pour ma tendre épouse, j'ai besoin de pouvoir manipuler une image dans Word 2003 via une macro. "Manipuler" signifie ici charger l'image dans un document, modifier sa taille, son agencement, et sa position sur la page.

Jusqu'ici, j'ai trouvé sans trop de problème comment charger l'image. Mais dès lors qu'il s'agit de toucher aux propriétés de cette image, je sèche. J'ai passé pas mal de temps sur Google et sur le site de référence de VBA (le langage intégré à Word), mais sans succès. C'est donc ici que j'aurais besoin d'un petit coup de main.

Pour être tout à fait précis, une fois l'image chargée dans le document, j'ai besoin de la rétrécir à 4 x 4 cm, et la positionner exactement à 1 cm de la gauche et 19 cm du haut de la page. C'est précisément pour effectuer cette manipulation que je cale.

Un tout grand merci d'avance pour tout coup de pouce, et encore à tous une excellente année 2007.