Poster une réponse à un sujet: Manipulation d'image dans une macro Word par VBA
Attention, ce sujet est un sujet ancien (6553 jours sans réponse)
Gras [b]Texte[/b] Italique [i]Italique[/i] Souligné [u]Souligné[/u] Barré [strike]Barré[/strike]
Courriel [email=nobody@nobody.org]Nom[/email] Lien [url=http://www.website.com]Texte[/url] Ancre [anchor]Nom[/anchor] Image [img]http://www.website.com/image.jpg[/img] Insérer une image en provenance du site
Aligné à gauche [align=left]Texte[/align] Centré [align=center]Texte[/align] Aligné à droite [align=right]Texte[/align] Toute la largeur [align=justify]Texte[/text]
Couleur [color=#000000]Text[/color] Mise en forme [highlight=pascal]Texte[/highlight] Widgets Emoticons :code: [:code] Convertisseur HTML vers BBCode Convertisseur Word vers BBCode
Prévisualisation Vérification de l'orthographe

Copier Coller Couper Tout sélectionner
Tout effacer Insérer la date Insérer l'heure Insérer la date et heure Insérer votre IP
Liste [list=square][item]BlaBla[/item][/list] Liste Numérotée [list=decimal][item]BlaBla[/item][/list]
Citation [quote=name]Texte[/quote] Spoiler [spoiler]James est le meurtrier![/spoiler]
Tout en majuscules [uppercase]Texte[/uppercase] Tout en minuscules [lowercase]Texte[/lowercase] l33t [l33t]Je suis un nerd[/l33t] Texte en indice [sub]Texte[/sub] Texte en exposant [sup]Texte[/sup] Taille du texte [size=8]Texte[/size]
 
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 ???

  1. Sub Insert_Pic()   
  2.    
  3. ' declare an InlineShape object variable  
  4.    
  5. Dim MyShape As Shape   
  6.    
  7. ' store the pointer to the new shape  
  8.    
  9. Set MyShape = ActiveDocument.Shapes.AddPicture(FileName:="C:\MySignature.bmp", LinkToFile:=False, SaveWithDocument:=True, Anchor:=Selection.Range)   
  10.    
  11. ' set properties of the Shape object  
  12.    
  13. With MyShape   
  14. .Width = 160   
  15. .Height = 49   
  16. .ZOrder msoSendBehindText   
  17. .WrapFormat.Type = wdWrapNone   
  18. .RelativeHorizontalPosition = wdRelativeHorizontalPositionCharacter   
  19. .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph   
  20. .Left = 0 
  21. .Top = InchesToPoints(0.02)   
  22. End With 
  23. End Sub

tuloravoulu
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
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.
Catégorie:  






Ada
CSS
Cobol
CPP
HTML
Fortran
Java
JavaScript
Pascal
Perl
PHP
Python
SQL
VB
XML
Anon URL
DailyMotion
eBay
Flickr
FLV
Google Video
Google Maps
Metacafe
MP3
SeeqPod
Veoh
Yahoo Video
YouTube
6px
8px
10px
12px
14px
16px
18px
Informaticien.be - © 2002-2024 AkretioSPRL  - Generated via Kelare
The Akretio Network: Akretio - Freedelity - KelCommerce - Votre publicité sur informaticien.be ?